Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- saveold

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
saveold
Synopsis
/infobank/programs/html/makefmeta/saveold.for
Description
  Subroutine to save upper part of KEYWORDS files for formal metadata.

  
       
Reads
          read (KeyUnit, '(a1)', end = 98) ALine(1:1)
          read (KeyUnit, '(a)', end = 99) ALine
Writes
      write (OutUnit, 1)
          write (OutUnit, '(a)') ALine(1:ALineLength)
Opens
      open (unit   = KeyUnit,
     *      file   = KeywordFile,
     *      form   = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown')
Calls
          call stringlen (ALine, ALineLength)
      call system ('/bin/cp /infobank/tmp/theme_keywords.temp '//
     *    KeywordFile)

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/html/makefmeta/saveold.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:46 PST 2013  (chd)