subroutine getmf1 (maf1_err)
c
c-----------------------------------------------------------------------
c
c     gets the data with a call to read_maf1,
c     puts the data of the current record into the common block /maf1/,
c     puts the time of the current record into the common block /blktim/
c
c-----------------------------------------------------------------------
c
c     ier is a return code: ier =   0  read ok
c                           ier = -10  end of file
c
c-----------------------------------------------------------------------
c
c     written by R. L. WEST     BCSS     FEB 25, 1992
c
c-----------------------------------------------------------------------
c
      integer*2 idat(2812)
c
      integer*4 maf1_err, it, iyd, l
c
      common    /blktim/iyd,it,
     *          /maf1/idat
c
      external read_maf1  !$pragma C( read_maf1 )
c
c-----------------------------------------------------------------------
c     *** read a record ***
c-----------------------------------------------------------------------
c
      l = 2812
      call read_maf1 (idat, l, maf1_err)
c
c-----------------------------------------------------------------------
c     *** define current record yd, and time ***
c-----------------------------------------------------------------------
c
      write (12, '(''idat(3) = '', i6)'), idat(3)
      iyd = idat(3) + 80000
      it = idat(4)
      it = (it * 8000) + idat(5)
      if (idat(3) .eq. -1) ier = -1
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end