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