USGS InfoBank program -- lowercase

lowercase

  Subroutine to verify that a file is in lower case.


       

              write (Message, 22) InFile(1:InFileLength),
     *                'File must be in lower case', Loop
              write (Message, 22) InFile(1:InFileLength),
     *                'File must be in lower case', Loop
              write (Message, 22) InFile(1:InFileLength),
     *                'File must be in lower case', Loop