!implicit none
character*14 dum,dum1,dum2
real, dimension(1000) :: qlat,qlon,qarea,qsize,qfrpw,qtime
integer, dimension(1000) :: year1,mon1,day1,h1,year2,mon2,day2,h2
integer nlines,i
nlines = 1


open(2,file='current.dat')

do i=1,nlines
read(2,'(a120)',end=110) dum
print*,dum
enddo
110 continue


!read(2,*)  year1,mon1,day1,h1,year2,mon2,day2,h2,qarea(1),qlat(1),qlon(1)
!1000 format(1x,a14,a14)
!stop 3

do i=1,10000
read(2,*,end=120)  year1(i),mon1(i),day1(i),h1(i)&
          ,year2(i),mon2(i),day2(i),h2(i)&
	  ,qarea(i),qlat(i),qlon(i)
print*,  year1(i),mon1(i),day1(i),h1(i)&
          ,year2(i),mon2(i),day2(i),h2(i)&
	  ,qarea(i),qlat(i),qlon(i)
enddo
120 continue
end