c
c 
       character *8  stid
c
       OPEN (8,file='latlon42.dat',status='old') 
       OPEN (10,file='Mong42.map.bdat',FORM='UNFORMATTED',
     &           STATUS= 'UNKNOWN', RECORDTYPE='STREAM')
C
       IFLAG = 0
C  
C  Read and Write
C
10     READ (8,9000,END=90) RVAL1,stid,RLAT,RLON,RELEV
          print*,RVAL1
           IYEAR=2000
           IMONTH=1
9000   format(f4.1,x,a8,7x,5x,14x,f5.2,3x,f6.2,3x,f6.1)
       IF (IFLAG.EQ.0) THEN
         IFLAG = 1
         IYROLD = IYEAR
         IMNOLD = IMONTH
       ENDIF
C
C  If new time group, write time group terminator.
C  Assuming no empty time groups.
C
       IF (IYROLD.NE.IYEAR.OR.IMNOLD.NE.IMONTH) THEN
         NLEV = 0
         WRITE (10) STID,RLAT,RLON,TIM,NLEV,NFLAG
       ENDIF
       IYROLD = IYEAR
       IMNOLD = IMONTH
C
C  Write this report
C
       TIM = 0.0
       NLEV = 1
       NFLAG = 1
       WRITE (10) STID,RLAT,RLON,TIM,NLEV,NFLAG
       WRITE (10) RVAL1,RELEV
       GO TO 10
C2345
C  On end of file write last time group terminator.
C
90     CONTINUE
       NLEV = 0
       WRITE (10) STID,RLAT,RLON,TIM,NLEV,NFLAG
       STOP
       END