| 10 format(F5.4,3E2.1) |
| |
| 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 /) |
| |
| FORMAT(1X,I10,1X,I10,1X,E15.7,I10,1X,I10,1X,I3/) |
| |
| data radii/(12*(fcasts+1))*0/ |
| |
| 9973 FORMAT(/,1X,'!!!!!! EXECUTION WILL NOW BE TERMINATED !!!!!!',//) |
| |
| end |