forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Need help in Fortran Code debugging

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Plato
View previous topic :: View next topic  
Author Message
Din_Dhande



Joined: 29 Oct 2015
Posts: 2

PostPosted: Thu Jul 21, 2016 12:06 pm    Post subject: Need help in Fortran Code debugging Reply with quote

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
View user's profile Send private message
JohnCampbell



Joined: 16 Feb 2006
Posts: 1725
Location: Sydney

PostPosted: Thu Jul 21, 2016 1:38 pm    Post subject: Reply with quote

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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Plato All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
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