subroutine problem

[milenko76]

I have iterative process but my subroutine has problems.
c ======================================
subroutine datainpe
c ======================================
use definitions
use mt2ddat
implicit none

write(*,*)iper
id1=iper/10
id2=iper-id1*10
dfile(3:4)=char(id1+48)//char(id2+48)
open(209, file=dfile, form='formatted',status='unknown')
read(209,*)data1,data2

end subroutine
It starts from iper 0,though the loop in the main starts from 1.
1
0
forrtl: severe (24): end-of-file during read, unit 209, file /home/milenko/ircg8/em00.datai
How to change this?

 

[xwb]

Where is iper defined? Is it at module level?