TheKKK
Mechanical
- Mar 22, 2009
- 21
Hello,
with the following code, when NRuns becomes large enough e.g. 1000 the program stops at 495th iteration giving the following error:
'The end of the character variable in an internal file I/O statement was detected.'
Does anybody know what that means and if i can perform the iterations?
Thanx for reading.
with the following code, when NRuns becomes large enough e.g. 1000 the program stops at 495th iteration giving the following error:
'The end of the character variable in an internal file I/O statement was detected.'
Does anybody know what that means and if i can perform the iterations?
Thanx for reading.
Code:
program LOOP
implicit none
CHARACTER(LEN=50) :: string
INTEGER(kind=8) :: NRuns,i,k,l
do i=1,NRuns
.
.
.
! read from SCREEN.OUT
OPEN(UNIT=80,FILE='SCREEN.OUT')
! read line 25 as string of characters
READ(UNIT=80,'(25(/),50(A))')string
l = LEN(string)
k = INDEX(string,'=')
! read value after '='
READ(string(k+1:l),*)value
CLOSE(UNIT=80)
enddo
end program