Need help in Fortran Code debugging

Dear Friends, Hi! I am trying to run a program which is written in 1968 on Plato. I am getting following errors. Can anyone help me out to solve these issues? Thanks in advance. I have given command line in program on right hand side and error on left hand side in front of command line.

100 FORMAT(72H ) Unpaired right bracket (s) 102 FORMAT(1P5E14.6) Unpaired right bracket (s) 109 FORMAT(1H0,17HECCCOS(ATT) DATA) Unpaired right bracket (s) 110 FORMAT(1H0,13HECCCOS(ATT)=1PE13.6,14H NO.ESIN(A)=I3) Unpaired right bracket (s) 115 FORMAT(5E13.5,115) Unpaired right bracket (s) 117 FORMAT(///1H0,21HRUPTURE ITERATION NO.,I2) 118 FORMAT(1H0,60H I BEGIN.INDEX END INDEX BEGIN ANGLE END ANGLE) Unpaired right bracket (s) 117 FORMAT(///1H0,21HRUPTURE ITERATION NO.,I2) Invalid character in label field of FIXED file format 121 FORMAT(1PE12.4,1P8E11.4) Unpaired right bracket (s) 123 FORMAT(1P8E15.7) Unpaired right bracket (s) 124 FORMAT(1H0,86HSOMMERFELD NO ECC.RATIO ATT.ANGLE CALC.AT 1 T.ANG. F-R/SW F-T/SW) Unpaired right bracket (s) 125 FORMAT (1H0,86H 1/S(R/CF/W) (Q-X/NDLC)IN (Q-X/NDLC)O 1 UT (Q-Z/NDLC)SIDE F-X/SW F-Y/S*W) Unpaired right bracket (s) 126 FORMAT (1H0,12H DFR/SDE,8X,7HDFT/SDE,8X,7HDFR/SDA,8X7HDFT /SDA,7 1 X,9HDFR/SDEDT,6X,9HDFT/SDEDT,6X,9HDFR/SDADT,6X,9HDFT/SDADT) Unpaired right bracket (s) 127 FORMAT (1H0,4X,7HCKXX/SW,8X,7HCKXY/SW,8X,7HCKYX/SW,8X,7HCKYY/S 1 W,7X,8HCHBXX/SW,7X,8HCWBXY/SW,7X,8HCWBYX/SW,7X,8HCWBYY/SW) Unpaired right bracket (s)

You are finding problems with the old Fortran Holerith format command. It can be useful to convert these to text strings, which are easier to code. Your first example ' (72H )' has also lost some blanks, which are significant for the nH format. This old code also has old print control commands, which are no longer usable. 1H0 (I think is a double line space) and 1H1 (new page) are examples of these commands. The power option, such as 1PE14.6 can be replaced by the new ES14.6. There are other uses of nP, although these are less used.

The following are examples of changes that can be made. 100 FORMAT(' ') ! Unpaired right bracket (s) 102 FORMAT(5ES14.6) ! Unpaired right bracket (s) 109 FORMAT(//'ECCCOS(ATT) DATA') ! Unpaired right bracket (s) 110 FORMAT(//'ECCCOS(ATT)=',ES13.6,' NO.ESIN(A)=',I3) ! Unpaired right bracket (s) 115 FORMAT(5E13.5,I15) ! Unpaired right bracket (s) 117 FORMAT(////'RUPTURE ITERATION NO.',I2) 118 FORMAT(//' I BEGIN.INDEX END INDEX BEGIN ANGLE END ANGLE') ! Unpaired right bracket (s) 117 FORMAT(////'RUPTURE ITERATION NO.',I2) ! Invalid character in label field of FIXED file format 121 FORMAT(ES12.4,8ES11.4) ! Unpaired right bracket (s) 123 FORMAT(8ES15.7) ! Unpaired right bracket (s) 124 FORMAT(//' SOMMERFELD NO ECC.RATIO ATT.ANGLE CALC.AT', & ' T.ANG. F-R/SW F-T/SW') ! Unpaired right bracket (s) 125 FORMAT (//' 1/S(R/CF/W) (Q-X/NDLC)IN (Q-X/NDLC)O', & 'UT (Q-Z/NDLC)SIDE F-X/SW F-Y/S*W') ! Unpaired right bracket (s) 126 FORMAT (//' DFR/SDE',8X,'DFT/SDE',8X,'DFR/SDA',8X,'DFT/SDA',7X, & 'DFR/SDEDT',6X,'DFT/SDEDT',6X,'DFR/SDADT',6X,'DFT/SDADT') ! Unpaired right bracket (s) 127 FORMAT (//4X,'CKXX/SW',8X,'CKXY/SW',8X,'CKYX/SW',8X,'CKYY/SW', & 7X,'CHBXX/SW',7X,'CWBXY/SW',7X,'CWBYX/SW',7X,'CWBYY/SW') ! Unpaired right bracket (s) end