USGS InfoBank program -- singlerecord

singlerecord

  Subroutine to validate that the file is a single record.


       

      read (TempUnit, '(i8)', end=99) TempInteger

          write (Message, '(a,a,a)')
     *                InFile(1:InFileLength), ' *** ',
     *                'File must contain a single record'

      open (unit = TempUnit,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/tmp/validator.tmp')

      call system ('wc '//InFile(1:InFileLength)//
     *                     ' > /infobank/tmp/validator.tm