USGS InfoBank program -- section11

section11

  Subroutine to output CITATION for formal metadata.

       

  Clint Steele

  Changed Originator CMG to CMGP and updated URL, C.Degnan, 1-Aug-2012
  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 (TempUnit, '(a)', end = 99) ALine
      read (SystemDateTime(9:10), '(i2)') Day
      read (TempLine(1:TempLineLength), '(i)') TodaysDate
      read (TempUnit, '(t43,q,a)') PlaceLength, Place(1:PlaceLength)
          read (TempUnit, '(a)') ALine
          read (ALine(16:19), '(i4)') LongYear
          read (TempLine(1:TempLineLength), '(i)') StartingDate
          read (ALine(40:43), '(i4)') LongYear
          read (TempLine(1:TempLineLength), '(i)') EndingDate
                  read (62, '(q,a)', end=966)
     *                AkaLineLength, AkaLine(1:AkaLineLength)

      write (TempLine, '(1024x)')
              write (ALine, '(1024x)')
      write (TempLine, '(1024x)')
      write (TempLine, '(a,i2.2,i2.2)') SystemDateTime(21:24),
     *    Month, Day
      write (DataTypes, '(512x)')
          write (TempLine, '(1024x)')
          write (TempLine, '(i4.4,a,a)')
     *         LongYear, ALine(10:11), ALine(13:14)
          write (TempLine, '(1024x)')
          write (TempLine, '(i4.4,a,a)')
     *         LongYear, ALine(34:35), ALine(37:38)
      write (Paragraph, '(4096x)')
      write (Paragraph(1:), '(a)') 'Title:'//
     *     Title(1:TitleLength)
      write (OutUnit, '(12x,a)') Paragraph(OutStart:OutEnd)
          write (OutUnit, '(19x,a)') Paragraph(OutStart:OutEnd)
                      write (QuashnetLink, '(1024x)')

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

      call head (2, OutUnit, 
     *            'Citation:')
      call head (3, OutUnit,
     *            'Citation_Information:')
              call stringlen (ALine, ALineLength)
                  call stringlen (ALine, ALineLength)
                      call stringlen (TempLine, TempLineLength)
      call stringlen (TempLine, TempLineLength)
          call value2 (4, OutUnit,  
     *            'Originator: ', 
     *            'U.S. Geological Survey (USGS) '//
     *            '<http://www.usgs.gov/>
     *            'Coastal and Marine Geology Program (CMGP) '//
     *            '<http://marine.usgs.gov/>
          call value2 (4, OutUnit,  
     *            'Originator: ', 
     *            'U.S. Geological Survey (USGS), '//
     *            '<http://www.usgs.gov/>
     *            'Coastal and Marine Geology Program (CMGP) '//
     *            '<http://marine.usgs.gov/&
     *            ', Chief Scientist ('//
     *            TempLine(1:TempLineLength)//')',' ')
      call stringlen (TempLine, TempLineLength)
      call value (4, OutUnit,
     *            'Publication_Date:  ', 
     *            TempLine(1:TempLineLength))
          call stringlen (ALine, ALineLength)
          call stringlen (TempLine, TempLineLength)
          call stringlen (TempLine, TempLineLength)
      call stringlen (Aka, AkaLength)
      call titleline (LongID, CapLongID, ShortID, IDLength,
     *            TempUnit, OutUnit,
     *            OverviewExists, Aka, AkaExists,
     *            Title, TitleLength,
     *            TodaysDate, StartingDate, EndingDate, 'section11',
     *            Currency)
      call stringlen (Paragraph, ParagraphLength)
      call head (4, OutUnit,
     *            'Publication_Information:')
      call value2 (5, OutUnit,  
     *        'Publisher:   ', 
     *        'U.S. Geological Survey (USGS) '//
     *        '<http://www.usgs.gov>
     *        'Coastal and Marine Geology (CMG) '//
     *        '<http://walrus.wr.usgs.gov>
      call value2 (5, OutUnit,
     *        'Publication_Place:   ',
     *        'Menlo Park, CA',' ')
           call value2 (4, OutUnit,
     *  	  'Online_Linkage:  ',
     *  	  'http://walrus.wr.usgs.gov/infobank/gos/'//
     *  	  LongID(1:IDLength+3)//'.fmeta.xml',' ')
          call value2 (4, OutUnit,
     *            'Online_Linkage:  ', 
     *            'http://walrus.wr.usgs.gov/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.meta.html',' ')
                      call stringlen (QuashnetLink,
     *                                QuashnetLinkLength)
              call value2 (4, OutUnit,
     *            'Online_Linkage:  ',
     *            QuashnetLink(1:QuashnetLinkLength),' ')