Printing in FORTRAN format(Fm.n)

(* Printing in FORTRAN format(Fm.n) *)

BeginPackage["printing`"]

printF::usage =
   "printF[x,m,n] gives a string equivalent to number x\n
printed in FORMAT(Fm.n)\n\n
x is real, complex or integer.\n
m, n are integers"

Begin["`private`"]

printF[x_,m_Integer,n_Integer]:=(
c=10^n;
l=m-2;
x1=N[x];
Which[
   Head[x1]===Real||Head[x1]===Integer,
      r=FortranForm[N[Round[c x1]/c]];
      ToString[PaddedForm[r,{l,n},ExponentFunction->(Null&)]],
   Head[x1]===Complex,
      re=FortranForm[N[Round[c x1//Re]/c]];
      im=FortranForm[N[Round[c x1//Im]/c]];
      ToString[PaddedForm[re,{l,n},ExponentFunction->(Null&)]]<>
      ToString[PaddedForm[im,{l,n},ExponentFunction->(Null&)]]
     ]
)

End[]

EndPackage[]


printprogr["printing"];