Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- checkexistance

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
checkexistance
Synopsis
/infobank/programs/dbase/validnav/checkexistance.for
Description
  Subroutine to check for the existance of a file.


       
Reads
      read (80, '(q,a)', end=99)
     *      AFileLength, AFile(1:AFileLength)
Writes
Opens
      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')
Calls
          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)

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/validnav/checkexistance.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:40 PDT 2013  (chd)