USGS InfoBank program -- inventory

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
  Joan Paz       02/04/09
                 Add check for .gif files for meter and samp data types
  Carolyn Degnan 03/25/2011
                 Added for scannedxrays.keep
  Added variable ImageDisk to call addimag, to call addimgarc,
  to call inventory, to call make0to6, and to call adddata. CDegnan, 8/23/2012
 4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2

Reads

              read (87, '(q,a)', end = 99) ALineLength, ALine
      read (35, '(i)', end = 3599) Hits
      read (35, '(i)', end = 3598) Hits

Writes

Opens

              open (unit = 87,
     *              status = 'old',
     *              access = 'sequential',
     *              form = 'formatted',
     *              file = '/infobank/tmp/info2html.imgls.temp')
      open (unit = 35,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/tmp/info2html_wc.temp')
      open (unit = 35,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/tmp/info2html_wc.temp')

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 system ('/bin/ls '// 
     *            '/infobank/'//ImageDisk//
     *            '/'//Letter//'/'//ShortID//
     *            '/imag > /infobank/tmp/info2html.imgls.tem
                  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 ('mogrify -format jpg '//
     *                   '/infobank/'//ShortID(1:1)//'/'//
     *                     ShortID(1:IDLength)//'/html/'//
     *                     LongID(1:IDLength+3)//'.index.png')
      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)

Accessibility FOIA Privacy Policies and Notices

U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/html/info2html/inventory.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Tue Feb 5 03:06:24 PST 2013 (chd)