| PROGRAM TstFmts |
| |
| ! This program contains snippets of code that may cause the photran |
| ! outline parser grief. The program provides no useful function. |
| |
| IMPLICIT NONE |
| |
| WRITE (6, 148) |
| WRITE (6, 149) |
| WRITE (6, 150) |
| |
| 148 FORMAT (/ ' *TestForBackup* Backup due to too large a fractional ', 'change in core power.' / ) |
| 149 FORMAT ( / ' *TestForBackup* Backup due to too large a fractional ', 'change in core power.' /) |
| 150 FORMAT ( / ' *TestForBackup* Backup due to too large a fractional change in core power.', // ) |
| |
| ictl(1:6) = ( / ictl1, ictl2, 1, 0, 0, 0 / ) |
| ictl(1:6) = (/ ictl1, ictl2, 1, 0, 0, 0 /) |
| |
| |
| data radii/(12*(fcasts+1))*0/ |
| |
| data radii / (12*(fcasts+1))*0 / |
| |
| |
| END PROGRAM |