funMath=(x+y)^40//Expand

SetOptions[$Output,PageWidth->72];
<<Format.m

stmp=OpenWrite["ExampleFormat.f",FormatType->OutputForm];
Write[stmp,FortranAssign[funFortran,funMath,AssignPrecision->Infinity,AssignTemporary->{t,Array}]];
Close[stmp];