Link to USGS home page
USGS Home
Contact USGS
Search USGS
Coastal & Marine Geology InfoBank

USGS InfoBank program -- atlasequippairs

Skip navigational links
Search InfoBank
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab Activities tabs
   
InfoBank Programs: by Name   by Data Type   General Tools   GIS   Plotting   Web   USGS Disclaimer   InfoBank Programs   Boothill  
   
Expanded description
Topic Description
Name
atlasequippairs
Synopsis
/infobank/programs/gaz/atlasequippairs/atlasequippairs.for
Description
  Program to identify those IDs for which an <id>.atlas and
  an <id>.equipmentused exists or not.
    
Execution_time
  4 seconds

    
Author
  Clint Steele       6/2/2004


    
Opens
 open (unit = 90,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'unknown',
*      name = '/infobank/programs/gaz/atlaskeepfiles/'//
*             'atlas.files.keep')

 open (unit = 91,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'unknown',
*      name = '/infobank/programs/gaz/atlaskeepfiles/'//
*             'pairs.keep')

 open (unit = 92,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'unknown',
*      name = '/infobank/programs/gaz/atlaskeepfiles/'//
*             'nopairs.keep')

    
Reads
     read (90, '(12x,q,a)', end = 99)
*        ALineLength, ALine(1:ALineLength)
    
Writes
         write (91, '(a)') ALine(1:ALineLength)
         write (92, '(a)') ALine(1:ALineLength)
    

Skip footer navigational links


InfoBank   Menlo Park Center   Santa Cruz Center   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  

FirstGov button   Take Pride in America button