USGS InfoBank program -- section114

section114

  Subroutine to output CROSS REFERENCE for formal metadata.

  Fixed finding the end of quashnet URLs, C.Degnan, 5-Sep-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

       

                  read (62, '(q,a)', end=966)
     *                AkaLineLength, AkaLine(1:AkaLineLength)
              read (TempUnit, '(a)', end=99) ALine

                      write (QuashnetLink, '(1024x)')
                  write (OutUnit, '(12x,a)')
     *                'Other_Citation_Details: '//
     *                ALine(1:ALineLength)
                  write (OutUnit, '(36x,a)')
     *                ALine(1:ALineLength)
          write (OutUnit, '(a)') ' '

              open (unit = 62,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = '/infobank/'//ShortID(1:1)//'/'//
     *                     ShortID(1:IDLength)//'/meta/'//
     *                     LongID(1:IDLength+3)//'.akas')
          open (file = '/infobank/'//
     *                ShortID(1:1)//'/'//
     *                ShortID(1:IDLength)//'/meta/'//
     *                LongID(1:IDLength+3)//'.publications',
     *          unit   = TempUnit,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'old')

      call head (2, OutUnit,
     *            'Cross_Reference:')
      call head (3, OutUnit,
     *            'Citation_Information:')
      call value2 (4, OutUnit,
     *            'Originator:              ', 
     *            'U.S. Geological Survey (USGS) '//
     *            '<http://www.usgs.gov>
     *            'Coastal and Marine Geology (CMG) '//
     *            '<http://walrus.wr.usgs.gov>
      call value (4, OutUnit,
     *            'Publication_Date:        ', 
     *            'Unknown')
      call value2 (4, OutUnit,
     *            'Title:                   ', 
     *            'USGS/CMG Information Bank '//
     *            '<http://walrus.wr.usgs.gov/infobank/>
      call head (4, OutUnit,
     *            'Publication_Information:')
      call value2 (5, OutUnit,  
     *        'Publisher:   ', 
     *        'U.S. Geological Survey (USGS) '//
     *        '<http://www.usgs.gov&g
     *        'Coastal and Marine Geology (CMG) '//
     *        '<http://walrus.wr.usgs.gov>
      call value2 (5, OutUnit,
     *        'Publication_Place:    ',
     *        'Menlo Park, CA',' ')
      call value (4, OutUnit,
     *    'Online_Linkage:          ',
     *    'http://walrus.wr.usgs.gov/infobank/')
                      call stringlen (QuashnetLink,
     *                                QuashnetLinkLength)
              call value2 (4, OutUnit,
     *            'Online_Linkage:  ',
     *        QuashnetLink(1:QuashnetLinkLength),' ')
              call stringlen (ALine, ALineLength)