
c   -1.00 21 14  2.00 -999.00 -999.00 -999.00 -999.00 -999.00 -999.00 -999.00 -999.00 -999.00  -999.00    0.000000    0.000000  -999.00
      do i=1,10000
       read(10,25,end=999) tsec,ih1,ih2,y1,x1,x2,x3,x4,x5,x6,x7,x8,x9,
     +                     y10,xlat,xlon,z
       print *, tsec,y10

       slat=999.
       slon=0999.
       write(20,25) tsec,ih1,ih2,y1,x1,x2,x3,x4,x5,x6,x7,x8,x9,y10,slat,
     +                       slon,y10
      enddo
 999  continue
 25   format(f8.2,2i3,f6.2,9(1x,f7.2),1x,f8.2,f11.5,3x,f9.5,2x,f8.2)
c 25   format(f8.2,12x,6(1x,f7.2),17x,f7.2,1x,f8.2,f11.5,3x,f9.5,2x,f8.2)
      end


c  30.00 21 14 33.00   86.74  -73.14 -999.00 -999.00    0.45   -8.81    8.82  357.04  -49.67  9156.32    0.060000   90.400000  -999.00


  
