end of character variable

[TheKKK]

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.

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

 

[johnhors]

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 24 lines

do j = 1,24
read(80,'(a)')string
end do

! read line 25 as string of characters
READ(80,'(A)')string

l = LEN(string)

if (l.gt.0) then
k = INDEX(string,'=')

if (k.gt.0.and.k.lt.l) then
! read value after '='
READ(string(k+1:l),*,iostat=ierr)value

if (ierr.ne.0) then
write(6,*)'error reading line:-'
write(6,'(a)')string
end if

end if

end if

CLOSE(UNIT=80)

end do

end program

 

[TheKKK]

Thanx that worked!

 

[xwb]

You could also use end= instead of err=

 

[johnhors]

"err=" isn't in the code !

"end=" would be useful in reading the file as with

read(80,'(a)',end=999)string

but not for an internal read where "iostat=ierr" is used.

 

[xwb]

Sorry, my mistake.

 

[johnhors]

xwb, no problem!