May I suggest something like the following:
lpread: &
do
read (1,fmt='(a)',iostat=iostatus) tmp
if (iostatus /= 0) exit lpread
!
! here you can do whatever you want with tmp
! and it will continue to read until either:
! - end-of-file
! - error reading
!
enddo lpread
This is standard F90, and should work fine.
Marcel.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|