USGS InfoBank program -- emptyhead

emptyhead

  Subroutine to verify that the first record of a file is not blank.


       

      read (TempUnit, '(a1024)', end = 99) ALine

      write (ALine, '(1024x)')
          write (Message, '(a,a,a)')
     *            InFile(1:InFileLength), ' *** ',
     *            'First line should not be blank'

      open (unit   = TempUnit,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown',
     *      name   = InFile(1:InFileLength))

      call stringlen (ALine, ALineLength)