USGS InfoBank program -- newerthan

newerthan

  Subroutine to determine is file #1 is newer than file #2.


       

      read (80, '(a1)', end=99) AChar

      open (unit = 80,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/tmp/validnav.newerthan.temp')

      call system ('/bin/find '//NewFile//' -newer '//
     *             OldFile//' -print '//
     *             ' > /infobank/tmp/validnav.newerthan.tem