Exportar expresiones con formato personalizado desde Mathematica
¿Cómo puedo hacer que Mathematica exporte / guarde / escriba un archivo de texto con el formato correcto de Fortan77, es decir, 72 columnas y un marcador de continuación en la sexta columna?
Estoy usando Mathematica para generar expresiones analíticas grandes y complejas, que luego necesito insertar en el código Fortran77 preexistente. Tengo todo funcionando correctamente en la parte frontal de Mathematica conFortranForm[]
y
SetOptions[$Output, PageWidth -> 72]
Sin embargo, no puedo averiguar cómo hacer que Mathematica se imprima correctamente en un archivo de texto. Quiero algo como esto:
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.
...
pero consigue esto:
MM11 = FortranForm[mH1^2 + (g2^2*v1^2)/2 - ...
o esto:
MM11 = mH1**2 + (g2**2*v1**2)/2. - (g2**2*
(v1**2/2. - ((v2*Cos(phi2) - (0,1)*v2*Sin(phi2))*
...