Name: Rolf Mertig Date: 01/29/13-03:48:08 AM Z
Yes, it is a bug.
You can go to line 126 in HighEnergyPhysics/fcloops/Write2.m
and then change the Real /: … to:
togglerule = False;
Unprotect[Real];
Real/:Format[r_Real,FortranForm]:=({mantissa,exponent}=MantissaExponent[r];
If[r===0.,exponent=1];
If[Abs[r]<10^16&\&Chop[FractionalPart[r]]===0,
togglerule=True;
SequenceForm[10. mantissa,D,exponent-1],
togglerule=True;
SequenceForm[10.
mantissa,D,exponent-1]])/;(togglerule=!togglerule);