Name: Rolf Mertig (email_not_shown)
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);

This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST