program read

  integer, dimension(12)  :: head

  real, dimension(15,100)  :: var
  real                     :: sigi(65),sigl(64)  
  character (len=60)       :: filename


  write(*,'("Enter input file name: ")',advance='no')
  read(*,'(a60)') filename


  open (1,file=trim(filename),form='unformatted')
  open (8,file=trim(filename)//'.asc',form='formatted')

1000 continue
  print * , 'next!!'
  read(1,end=999) head
  read(1)         sigi,sigl

  print *,'Header: '
  print *, head ; write(8,'(12i5)') head
  print *, sigi ; write(8,'(8e12.4)') sigi
  print *, sigl ; write(8,'(8e12.4)') sigl

  do k=1,29

     do l=1,head(9)
        read(1,end=999) var(1,1:head(5))
        read(1)         var(2,1:head(6))
        write(8,'(12i5)') head

        do m=5,15
           read(1) var(m,1:head(8))          
        end do
print *, K,L
        write(8,'(1x,a4,i3,a6,f12.2,a6,f12.2)') 'Rec=',l,'  lat=',var(1,1),'  lon=',var(1,2)
        write(8,'(1x,8e12.4)') var(1,1:head(5))
        write(8,'(1x,8e12.4)') var(2,1:head(6))

        do m=5,15
           write(8,'(1x,a3,i3)') 'm= ',m
           write(8,'(8e12.5)') var(m,1:head(8))
        end do

     enddo
  end do

  goto 1000

999 close(1)

end program read