\documentclass{article}

\usepackage[usenames,dvipsnames]{color,xcolor}
\usepackage{listings}
\usepackage{xepersian}
\settextfont{B Zar}

\begin{document}
	
	\definecolor{bluekeywords}{rgb}{0.13,0.13,1}
	\definecolor{greencomments}{rgb}{0,0.5,0}
	\definecolor{redstrings}{rgb}{0.9,0,0}
	\begin{latin}
		\small
		\lstinputlisting[language=fortran,frame=left,numbers = left,commentstyle=\color{greencomments},stringstyle=\color{redstrings},keywordstyle=\color{bluekeywords}]{a.for}
		
		
	\end{latin}
	
\end{document}