USGS InfoBank program -- mainvalidator

mainvalidator

  Program to validate internal formats and name of files.

       

  Clint Steele    10/3/2000


    

      write (Message, '(1024x)')
              write (LogUnit, '(a,a)')
     *            'checking ',
     *            InFile(1:InFileLength)
               write (StatusUnit, '(a,1x,a)')
     *             Message(1:MessageLength), InFile(1:InFileLength)
               write (Message, '(1024x)')
          write (LogUnit, '(a)')
     *             InFile(1:InFileLength)

      call loadstyles (Names, NameLength,
     *    Styles, StyleLength, StyleCount,
     *    Paths, PathLength)
      call openio (ControlUnit,
     *      LogUnit, 
          call stringlen (Message, MessageLength)