Compilation FORTRAN program written in IV or 66 Version

Many years before I had written programs in FORTRAN IV or 66 version. These programs were performing perfectly and have used for various projects in the past.

Presently, I am not in the position to compile this program in FTN95.

The compilation errors are mainly of following nature

The errors are typical “Syntax Errors” and mainly due to the “Syntax” as per earlier versions

I have observed errors are mainly as follows

1.  “Input / Output”  file connection
   

2.  Continuation statement having “1” in column no 6
   

3.  Logic with “GO TO Statement”  , that is the number in row “1 to 5”
   

I am reading lot of books as well as literature to debug these errors, however not in the position to find an easy solution.

I am submitting 14 error messages for review.

“Microsoft Windows [Version 10.0.18363.836]

(c) 2019 Microsoft Corporation. All rights reserved.

C:\Program Files (x86)\Silverfrost\Tutorial>FTN95 Rut.f95.for /CHECKMATE

[FTN95/Win32 Ver. 8.50.0 Copyright (c) Silverfrost Ltd 1993-2019]

1. 00100 DIMENSION A(200),B(200),C(200),D(200),X(200),Y(200),BEND(200),

WARNING - Line has been truncated (line is longer than 72 characters)

*** Unpaired right bracket(s)

2. 00200 *R(200),XP(200),YP(200),TS(200),TD(200),VEV(200)

*** Invalid character '*' at start of line

*** Statement not recognised

4. 00400 DIMENSION CIM(2),FIM(2), AI(2),BI(2),CI(2),DI(2),EI(2),FI(2)

*** Unpaired right bracket(s)

13. 01220 OPEN (UNIT=6,FILE='RUT.OUT',ACCESS='SEQOUT',

*** Unpaired right bracket(s)

14. 01240 1DEVICE='DSK' )

*** Unpaired right bracket(s)

15. 01260 OPEN (UNIT=5,FILE='RUT.INP',ACCESS='SEQIN',

*** Unpaired right bracket(s)

16. 01280 1 DEVICE='DSK' )

*** Unpaired right bracket(s)

20. 01600 150 CONTINUE

*** Invalid character '1' at start of line

22. 01800 6666 DO 100 I=1,200

*** Invalid character '6' at start of line

33. 02900 100 Y(I)=0.

*** Invalid character '1' at start of line

37. 03300 5 CONTINUE

*** Invalid character '5' at start of line

46. 04020 578 FORMAT ('1',///,24X,'',/,22X,'',1X,'',/,20X,'',3X,'*',/,18X,

*** Unpaired right bracket(s)

*** Too many errors

14 ERRORS [Rut.f95.FOR] - Compilation failed.”

Can any one help me to resolve these errors?

Regards

Uday

Please post/provide the whole code, not just the lines that contain errors. Instead of posting the code inline as text, use the Code button as follows.

Starting with a fresh line, enter the code, and select the entire code. With the code selected, press the Code button. You will see the body of the code surrounded by 'code' and '/code' markups.

If the code is larger than about 100 lines, a different method will need to be used. Zip the code, upload the zip file to a cloud server such as Dropbox, Google Drive, Onedrive, etc. Make the uploaded file open to public access, obtain a link, and post the link here.

Once we have the code available, one of us will certainly try to help you to make it work with FTN95.

Note: The lines that you displayed appear to contain a sequence number at the beginning of each line. Those sequence numbers (not to be confused with statement labels) are not part of standard Fortran and will not be accepted by FTN95.

The Fortran code will be 'fixed' format so the program files should have the .for extension or you should use /FIXED on the FTN95 command line.

Uday,

I'm sitting at home bored with Covid lockdown. I've sent you a Private Message with my e mail address. If you want to send me the source code file I will get the errors out for you and explain why you got them.

Eddie

Hi John,

Yes, they are. Done that. Then there are TABs. And other things - pretty much dealt with now.

Eddie

Do we know is this was resolved?

Hi Robert,

I resolved it for him. Sometimes old programs written in Fortran 66 times have some bizarre constructs suited only to one particular compiler.

Eddie

Nice work Eddie

Quoted from Robert Nice work Eddie

Eddie did excellent work in guiding me to convert very old FORTRAN programs and compile.