|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
Din_Dhande
Joined: 29 Oct 2015 Posts: 2
|
Posted: Thu Jul 21, 2016 12:06 pm Post subject: 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,17HECC*COS(ATT) DATA) Unpaired right bracket (s)
110 FORMAT(1H0,13HECC*COS(ATT)=1PE13.6,14H NO.E*SIN(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/S*W F-T/S*W) Unpaired right bracket (s)
125 FORMAT (1H0,86H 1/S*(R/C*F/W) (Q-X/NDLC)IN (Q-X/NDLC)O
1 UT (Q-Z/NDLC)SIDE F-X/S*W 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) |
|
Back to top |
|
|
JohnCampbell
Joined: 16 Feb 2006 Posts: 2555 Location: Sydney
|
Posted: Thu Jul 21, 2016 1:38 pm Post subject: |
|
|
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. Code: | 100 FORMAT(' ') ! Unpaired right bracket (s)
102 FORMAT(5ES14.6) ! Unpaired right bracket (s)
109 FORMAT(//'ECC*COS(ATT) DATA') ! Unpaired right bracket (s)
110 FORMAT(//'ECC*COS(ATT)=',ES13.6,' NO.E*SIN(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/S*W F-T/S*W') ! Unpaired right bracket (s)
125 FORMAT (//' 1/S*(R/C*F/W) (Q-X/NDLC)IN (Q-X/NDLC)O', &
'UT (Q-Z/NDLC)SIDE F-X/S*W 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 |
|
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|