- #1
- 17
- 0
Hi,
I'm having trouble with some FORTRAN code I'm trying to use.
I receive an error:
Upon inspection of the code the following appears:
as far as I understand the file is closing before it is written to. Upon inspection of the file system the file does get created but it is empty.
Could someone possibly explain to me what the code is trying to do and possibly suggest a solution?
I'm new to fortran code so I dont understand the syntax. Is there a good online manual for fortran?
I'm having trouble with some FORTRAN code I'm trying to use.
I receive an error:
Code:
At line 769 of file ../src/mpolar.f (unit = 11, file = 'polarx.387')
Fortran runtime error: Sequential READ or WRITE not allowed after EOF marker, possibly use REWIND or BACKSPACE
Code:
55 READ(LU11,END=60) DUMMY
GO TO 55
C
C
C---- the polar dump file doesn't exist, so write new header
56 CONTINUE
WRITE(LU11) NAME, ' MSES ', VERSION
WRITE(LU11) MACHIN, REYNIN/1.0E6, ACRIT
WRITE(LU11) IMATYP, IRETYP
WRITE(LU11) NBL, II
WRITE(LU11) (ILEB(N), ITEB(N), IIB(N), N=1, NBL)
DO 59 N=1, NBL
WRITE(LU11) (XB(IB,N), YB(IB,N), IB=1, IIB(N))
59 CONTINUE
C
60 CONTINUE
C
CLOSE(LU11)
RETURN
END ! PXINIT
Could someone possibly explain to me what the code is trying to do and possibly suggest a solution?
I'm new to fortran code so I dont understand the syntax. Is there a good online manual for fortran?