Jak mogę zmusić Mathematica do eksportowania / zapisywania / zapisywania pliku tekstowego z odpowiednim formatowaniem Fortan77, czyli 72 kolumnami i znacznikiem kontynuacji w szóstej kolumnie?

Używam Mathematica do generowania dużych i złożonych wyrażeń analitycznych, które następnie muszę wstawić do wcześniej istniejącego kodu Fortran77. Wszystko działa poprawnie na froncie Mathematica zFortranForm[] i

SetOptions[$Output, PageWidth -> 72]

Nie wiem jednak, jak zmusić Mathematica do poprawnego wyjścia do pliku tekstowego. Chcę coś takiego:

MM11 = mH1**2 + (g2**2*v1**2)/2. - 
     -  (g2**2*(v1**2/2. - 
     -       ((v2*Cos(phi2) - (0,1)*v2*Sin(phi2))*
     -          (v2*Cos(phi2) + (0,1)*v2*Sin(phi2)))/2.))/2.
...

ale zdobądź to:

MM11 = FortranForm[mH1^2 + (g2^2*v1^2)/2 - ...

albo to:

MM11 = mH1**2 + (g2**2*v1**2)/2. - (g2**2*
 (v1**2/2. - ((v2*Cos(phi2) - (0,1)*v2*Sin(phi2))*
...