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

USGS InfoBank program -- inventory

Skip navigational links
Search InfoBank
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab More tab Activities tabs
   
InfoBank Programs: by Name   by Topic  
   
Expanded description
Topic Description
Name
inventory
Synopsis
/infobank/programs/html/info2html/inventory.for
Description
  Subroutine to inventory and verify the existance of data types.
    
Output
  Creates "inventory sentence" -- Existance

    
Author
  Clint Steele   10/23/97

                 updated 3/15/99

    
Opens
 open (unit = 35,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'unknown',
*      name = '/tmp/info2html_wc.temp')

 open (unit = 35,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'unknown',
*      name = '/tmp/info2html_wc.temp')

    
Reads
 read (35, '(i)', end = 3599) Hits
 read (35, '(i)', end = 3598) Hits
    
Calls
 call stringlen (ShortID, IDLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
 call stringlen (Existance, ExistanceLength)
*    call system ('/bin/grep .GIF '//
*         '/infobank/'//Letter//'/'//ShortID//
*         '/seis/'//LongID//'.metafiles.keep | wc > '//
*         '/tmp/info2html_wc.temp')

 call stringlen (Existance, ExistanceLength)
*    call system ('/bin/grep .gif '//
*         '/infobank/'//Letter//'/'//ShortID//
*         '/seis/'//LongID//'.metafiles.keep | wc > '//
*         '/tmp/info2html_wc.temp')

 call stringlen (Existance, ExistanceLength)
    

Skip footer navigational links


InfoBank   Menlo Park & Santa Cruz Centers   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