USGS InfoBank program -- threedashes

threedashes

  Subroutine to verify that three-dash files are in the proper format.


       

          read (TempUnit, '(q,a)', end = 99)
     *                ALineLength, ALine(1:ALineLength)

              write (Message, 25) InFile(1:InFileLength),
     *            RecordCount, 'must preceed dashes with a space'
               write (Message, 25) InFile(1:InFileLength),
     *             RecordCount,
     *             'must follow dashes with a space'//
     *             ' when dashes are followed by text'

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

          call stringlen (ALine(1:ALineLength), ALineLength)