USGS InfoBank program -- howbig

howbig

  Subroutine to determine a file's size in MBytes for gaz2html.

       

  Clint Steele     1/14/2003


    

      read (95, '(a)', end=99) ALine
      read (ALine(Blank+1:Slash-1), '(i)') Bytes

      open (unit = 95,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/tmp/gaz2html.metacount.temp')