Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- section16

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
section16
Synopsis
/infobank/programs/html/makefmeta/section16.for
Description
  Subroutine to output KEYWORDS for formal metadata.


       
Reads
           read (TempUnit, '(a)', end = 99) ALine
                  read (TempUnit, '(a)', end = 199) ALine
              read (TempUnit, '(a)', end = 299) ALine
Writes
               write (OutUnit,  '(a)') ALine(1:ALineLength)
                        write (OutUnit, '(a)') ALine(1:ALineLength)
          write (OutUnit, '(1x)')
                  write (OutUnit, '(a)') ALine(1:ALineLength)
Opens
      open (unit = TempUnit,
     *      file = '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength)//'/meta/'//
     *             LongID(1:IDLength+3)//'.theme_keywords',
     *             status = 'old',
     *             access = 'sequential',
     *             form = 'formatted')
              open (unit = TempUnit,
     *             file = '/infobank/'//
     *                    ShortID(1:1)//'/'//
     *                ShortID(1:IDLength)//'/'//
     *                DataDir(Loop)(1:DataDirLength)//'/'//
     *                LongID(1:IDLength+3)//'.theme_'//
     *                    DataType(Loop)(1:DataTypeLength)//'_keywords',
     *             status = 'old',
     *             access = 'sequential',
     *             form = 'formatted')
          open (unit   = TempUnit,
     *      name   = '/infobank/'//
     *               ShortID(1:1)//'/'//
     *               ShortID(1:IDLength)//'/meta/'//
     *               LongID(1:IDLength+3)//'.place_keywords',
     *      status = 'old',
     *      access = 'sequential',
     *      form   = 'formatted')
Calls
      call head (2, OutUnit,
     *            'Keywords:')
      call head (3, OutUnit, 'Theme:')
      call value (4, OutUnit,
     *               'Theme_Keyword_Thesaurus:      ',
     *               'ISO 19115 Topic Category')
      call value (4, OutUnit,
     *               'Theme_Keyword:                ',
     *               'geoscientificinformation')
      call value (4, OutUnit,
     *               'Theme_Keyword:                ',
     *               'oceans')
      call head (3, OutUnit, 'Theme:')
      call value (4, OutUnit,
     *               'Theme_Keyword_Thesaurus:      ',
     *               'Global Change Master Directory (GCMD)')
      call value (4, OutUnit,
     *               'Theme_Keyword:                ',
     *               'EARTH SCIENCE > OCEAN
      call head (3, OutUnit, 'Theme:')
      call value (4, OutUnit,
     *               'Theme_Keyword_Thesaurus:      ', 
     *               'USGS CMG InfoBank')
           call stringlen (ALine, ALineLength)
          call stringlen (DataType(Loop), DataTypeLength)
          call stringlen (DataDir(Loop), DataDirLength)
                  call stringlen (ALine, ALineLength)
          call head (3, OutUnit,
     *                'Place:')
          call value (4, OutUnit,
     *                'Place_Keyword_Thesaurus:      ', 
     *                'USGS CMG InfoBank')
              call stringlen (ALine, ALineLength)

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