USGS InfoBank program -- getsize

getsize

  Subroutine to return the size of a file (in MBytes).

       

  If file does not exist, Size = 0.0 is returned.

  If size GT 0 and LE 0.1, Size = 0.1 is returned.
    

  Clint Steele     9/11/2002


    

      read (34, '(q,a)', end = 99) ALineLength, ALine(1:ALineLength)
          read (ALine(FirstBlank:LastBlank-1), '(i)') Characters
          read (ALine(FirstBlank:LastBlank-2), '(i)') Characters

      open (unit = 34,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/tmp/getsize_size.temp')

      call system ('/bin/ls -l '//FilePath//
     *             ' > /infobank/tmp/getsize_size.tem