USGS InfoBank program -- checkexistance

checkexistance

  Subroutine to check for the existance of a file.

    

 open (unit = 80,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'old',
*      name = '/infobank/'//ID(1:1)//'/'//
*                ID(1:IDLength)//'/nav/'//
*                LongID(1:IDLength+3)//
*                '.best_nav_file')

    

 read (80, '(q,a)', end=99)
*      AFileLength, AFile(1:AFileLength)

    

     call newerthan (AFile(1:AFileLength)//'_tmechk',
*                    AFile(1:AFileLength),
*                    Newer)

     call newerthan (AFile(1:AFileLength)//'_eotcssp',
*                    AFile(1:AFileLength),
*                    Newer)

     call newerthan (AFile(1:AFileLength)//'_checkeot',
*                    AFile(1:AFileLength)//'_eotcssp',
*                    Newer)

     call newerthan (AFile(1:AFileLength)//'_events',
*                    AFile(1:AFileLength)//'_checkeot',
*                    Newer)

     call newerthan ('/infobank/'//ID(1:1)//'/'//
*                    ID(1:IDLength)//'/html/'//
*                    LongID(1:IDLength+3)//
*                    '.nav.gif',
*                    AFile(1:AFileLength)//'_events',
*                    Newer)

     call newerthan ('/infobank/'//ID(1:1)//'/'//
*                    ID(1:IDLength)//'/meta/'//
*                    LongID(1:IDLength+3)//
*                    '.navarea',
*                    AFile(1:AFileLength)//'_events',
*                    Newer)