Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- summarizeoddanalog

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
summarizeoddanalog
Synopsis
/infobank/programs/edit/summarizeoddanalog/summarizeoddanalog.for
Description
  Program to create a summary of non-complete activity-ID

  analog (.item) files.
       
AUTHOR
  Clint Steele    2/4/2000    .for


    
Reads
          read (90, '(q,a)', end = 99) 
     *             ALineLength, ALine(1:ALineLength)
               read (90, '(q,a)', end = 99) 
     *            ALineLength, ALine(1:ALineLength)
               read (Item(ItemDash:ItemLength), '(i)')
     *               ItemNumber
      read (Item(ItemDash:ItemLength), '(i)') ItemNumber
Writes
               write (91, 2) 
     *            Activity(ActivityDash:ActivityLength),
     *            ItemNumber,
     *            Scientist(ScientistDash:ScientistLength)
               write (Item, '(1024x)')
              write (Activity, '(1024x)')
              write (Scientist, '(1024x)')
                  write (Scientist, '(1024x)')
      write (91, 2) 
     *               Activity(ActivityDash:ActivityLength),
     *               ItemNumber,
     *               Scientist(ScientistDash:ScientistLength)
Opens
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/programs/edit/items2analog/'//
     *             'oddanalog.total')
      open (unit = 91,
     *      access = 'append',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/programs/keep/'//
     *             'oddanalog.keep')
Calls
      call system ('cat /infobank/programs/edit/items2analog/'//
     *             '*.analog > 
     *             '/infobank/programs/edit/items2analog/'//
     *             'oddanalog.total')
      call system ('cat /infobank/programs/keep/caution.keep '//
     *             '> /infobank/programs/keep/oddanalog.kee
      call system ('echo "! CREATED BY summarizeoddanalog" > 
     *             '/infobank/programs/keep/oddanalog.keep')
      call system ('echo "! USED BY database managers" > 
     *             '/infobank/programs/keep/oddanalog.keep')
      call system ('echo "!" > 
     *             '/infobank/programs/keep/oddanalog.keep')
             call changecase ('CAPITALS', 
     *            Scientist(1:ScientistLength))

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/edit/summarizeoddanalog/summarizeoddanalog.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:02 PDT 2013  (chd)