Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- partialids2html

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
partialids2html
Synopsis
/infobank/programs/html/partialids2html/partialids2html.for
Description
  Program to convert a list of analog information for 

  partial and unknown IDs into a script that
  will generate other_ids.html.
       
EXECTUION_TIME
  1 second

    
AUTHOR
  Clint Steele    7/23/96

    based on regions2idshtml    3/12/96

    
Reads
          read (IDList, '(q,a)', end = 999)
     *        IDLength, ID(1:IDLength)
          read (71, '(q,a)', end = 771)
     *        ALineLength, ALine(1:ALineLength)
          read (72, '(q,a)', end = 772)
     *        ALineLength, ALine(1:ALineLength)
          read (73, '(q,a)', end = 773)
     *        ALineLength, ALine(1:ALineLength)
          read (74, '(t10,q,a)', end = 774)
     *        ALineLength, ALine(1:ALineLength)
          read (75, '(t10,q,a)', end = 775)
     *        ALineLength, ALine(1:ALineLength)
          read (76, '(q,a)', end = 776)
     *        ALineLength, ALine(1:ALineLength)
Writes
      write (Command, '(255x)')
      write (Command, 22)
              write (76, 31) ID(1:IDLength),
     *                       CapID(1:IDLength)
                  write (76, 31) ID(1:IDLength),
     *                           CapID(1:IDLength)
                  write (71, 31) ID(1:IDLength),
     *                           CapID(1:IDLength)
                  write (72, 31) ID(1:IDLength),
     *                           CapID(1:IDLength)
                  write (73, 31) ID(1:IDLength),
     *                           CapID(1:IDLength)
                  write (73, 31) ID(1:IDLength),
     *                           CapID(1:IDLength)
                  write (74, 32) ID(3:4),
     *                           ID(1:IDLength),
     *                           ID(1:IDLength),
     *                           CapID(1:IDLength)
                  write (74, 32) ID(4:5),
     *                           ID(1:IDLength),
     *                           ID(1:IDLength),
     *                           CapID(1:IDLength)
                  write (75, 32) ID(5:6),
     *                           ID(1:IDLength),
     *                           ID(1:IDLength),
     *                           CapID(1:IDLength)
                  write (75, 32) ID(6:7),
     *                           ID(1:IDLength),
     *                           ID(1:IDLength),
     *                           CapID(1:IDLength)
      write (HtmlName, 25)
      write (Title, 26)
      write (IDHtml, '(a)') '<br 
      write (IDHtml, '(a)') '<di
      write (IDHtml, '(a)') '<table class = "info" width = "600
      write (IDHtml, '(2x,a)') '<t
      write (IDHtml, '(4x,a)') '<t
      write (IDHtml, '(6x,a)') 'This provides access to '//
     *                              'Field Activity's '//
     *                              'data and metadata '//
     *                              'for <b>incomplete activi
     *                              'IDs</b>. &
      write (IDHtml, '(6x,a)') '<u
      write (IDHtml, '(8x,a)') '<l
      write (IDHtml, '(10x,a)') 'Data and metadata (typically, '//
     *                               'physical materials) exist, but '//
     *                               'one or more of platform/leg/'//
     *                               'year/place are unknown or '//
     *                               'questionable. ' 
      write (IDHtml, '(8x,a)') '</li>&
      write (IDHtml, '(8x,a)') '<l
      write (IDHtml, '(10x,a)') 'With a bit of luck and '//
     *                               'perseverance these will be '//
     *                               'complete someday. '
      write (IDHtml, '(8x,a)') '</li>&
      write (IDHtml, '(6x,a)') '</u
      write (IDHtml, '(4x,a)') '</t
      write (IDHtml, '(4x,a)') '<t
      write (IDHtml, '(6x,a)')
     *     '<img src = "http://walrus.wr.usgs.gov/infobank/
     *     'programs/html/training/IBDemo/rawjpg/'//
     *     'WithIncompleteIDs.jpg" '//
     *     'alt = "IncompleteIDs" width = "100"/&g
      write (IDHtml, '(4x,a)') '</t
      write (IDHtml, '(2x,a)') '</t
      write (IDHtml, '(a)') '</tabl
      write (IDHtml, '(a)') '</di
      write (IDHtml, 750) 'IDs unknown by InfoBank'
          write (IDHtml, '(a)') ALine(1:ALineLength)
      write (IDHtml, 751)
      write (IDHtml, 750) 'IDs with a known Platform'
          write (IDHtml, '(a)') ALine(1:ALineLength)
      write (IDHtml, 751)
      write (IDHtml, 750) 'IDs with a known Leg'
          write (IDHtml, '(a)') ALine(1:ALineLength)
      write (IDHtml, 751)
      write (IDHtml, 750) 'IDs with a known Year'
          write (IDHtml, '(a)') ALine(1:ALineLength)
      write (IDHtml, 751)
      write (IDHtml, 750) 'IDs with a known Region'
          write (IDHtml, '(a)') ALine(1:ALineLength)
      write (IDHtml, 751)
      write (IDHtml, 750) 'Odds and Ends'
          write (IDHtml, '(a)') ALine(1:ALineLength)
      write (IDHtml, 751)
Opens
      open (unit = 71,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_unknown_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 72,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_platform_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 73,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_leg_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 74,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_year_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 75,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_region_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 76,
     *      access = 'sequential',
     *      file   =
     *      '/infobank/tmp/partialids2html_oddsandends_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = IDList,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_bad_ids.temp',
     *      form   = 'formatted',
     *      status = 'old')  
      open (unit = IDHtml,
     *      access = 'sequential',
     *      file   =  HtmlName,
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 71,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_unknown_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 72,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_platform_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 73,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_leg_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 74,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_year_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 75,
     *      access = 'sequential',
     *      file   = '/infobank/tmp/partialids2html_region_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit = 76,
     *      access = 'sequential',
     *      file   =
     *      '/infobank/tmp/partialids2html_oddsandends_ids.temp',
     *      form   = 'formatted',
     *      status = 'unknown')
Calls
      call system (Command)
          call changecase ('CAPITALS', CapID)
      call system ('sort '//
     *      '/infobank/tmp/partialids2html_year_ids.temp > 
     *      '/infobank/tmp/partialids2html_year.temp')
      call system ('/bin/mv '//
     *      '/infobank/tmp/partialids2html_year.temp '//
     *      '/infobank/tmp/partialids2html_year_ids.temp')
      call system ('sort '//
     *      '/infobank/tmp/partialids2html_region_ids.temp > 
     *      '/infobank/tmp/partialids2html_region.temp')
      call system ('/bin/mv '//
     *      '/infobank/tmp/partialids2html_region.temp '//
     *      '/infobank/tmp/partialids2html_region_ids.temp')
      call stringlen (Title, TitleLength)
      call htmlhead (IDHtml, Title(1:TitleLength))
      call includeit (IDHtml,
     *    '/infobank/programs/html/tools/activities.tabs')
      call includeit (IDHtml,
     *    '/infobank/programs/html/tools/home.newfieldwork.tabs')
      call includeit (IDHtml,
     *    '/infobank/programs/html/tools/activities.activities.tabs') 
      call includeit (IDHtml,
     *    '/infobank/programs/keep/contents.keep')
      call htmlfoot (IDHtml, 'http://walrus.wr.usgs.gov/infobank/'//
     *            'programs/html/partialids2html/'//
     *                'other_ids.html')

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