PROGRAM for_Grads
        implicit none
        integer, parameter :: NST =25, NMN = 1, NSS = 1
        integer :: ist, imn, itmp, nlev, nflag, iss, IYEAR, IMONTH
        character (len = 8), dimension (NST):: STID
        real, dimension (NST) :: RLON,RLAT
        real :: time, rtmp
!        real, dimension (NST,NMN) :: RVAL
        real, dimension (NST,NSS) :: RVAL
      time=0
      nlev=1
      nflag=1
      OPEN (25,file='Out_sta.txt',status="unknown")
      OPEN (10,file='T_test.bin',form='unformatted',status='unknown',access='stream')
      DO iss=1,NSS
        Do ist=1,NST
        Read(25,*) IYEAR,IMONTH,STID(ist),RLON(ist),RLAT(ist),RVAL(ist,iss)
        write(10,*) STID(ist),RLAT(ist),RLON(ist),time,nlev,nflag
        write(10,*) RVAL(ist,iss)
        Enddo
      nlev=0
        write(10,*) STID(NSS),RLAT(NSS),RLON(NSS),time,nlev,nflag
      ENDDO
      close (10)
      close(25)
      end