Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- ids2html

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
ids2html
Synopsis
/infobank/programs/gaz/gazboothill/ids2html/ids2html.for
Description
  Program to add html links to list of IDs for gazettes.

       
AUTHOR
  Clint Steele     2/1/2002


    
Reads
          read (80, '(q,a)', end = 999)
     *        AtlasLineLength, AtlasLine(1:AtlasLineLength)
          read (90, '(t13,q,a)', end = 99) 
     *        FileNameLength, 
     *        FileName(1:FileNameLength)
              read (91, '(q,a)', end = 98)
     *            ALineLength, ALine(1:ALineLength)
              read (93, '(q,a)', end = 97)
     *            ALineLength, ALine(1:ALineLength)
              read (95, '(t30,q,a)', end = 7003)
     *             BLineLength, BLine(1:BLineLength)
Writes
          write (AtlasLine, '(512x)')
          write (LastID, '(7x)')
          write (LastLink, '(255x)')
                  write (LastLink, '(255x)')
                  write (92, '(4x,a)') '<td align="center"&
     *                LastLink(1:LastLinkLength)//'</t
          write (IDSFilename, '(1024x)')
          write (Area, '(4x)')
          write (94, '(a)')
     *        '<b>Field activities '//     ! 'with sa
     *        'that cross '//    
     *        'the '//          !    'Monterey Bay'
     *        'region.</
          write (94, '(a)')    '<table border="1" 
     *        'width="80%" align="center"&g
          write (94, '(2x,a)') '<t
              write (IDPath, '(255x)')
          write (ImageFileName, '(1024x)')
                  write (94, '(4x,a)')
     *          '<td valign="bottom" align="center" bgcolor="#ccffff
              write (BLine, '(1024x)')
                       write (94, '(4x,a)') '</t
                   write (94, '(2x,a)') '</t
                      write (94, '(2x,a)') '<t
                      write (94, '(4x,a)')
     *           '<td valign="bottom" align="center" bgcolor="#ccffff
                  write (94, '(6x,a)') 
     *                '<img src="http://walrus.wr.usgs.gov
     *                ImageFileName(1:ImageFileNameLength)//
     *                '" alt="map of tracklines" width="150"&g
                  write (94, '(6x,a)')
     *                '<b>'//BLine(1:BLineLength)//
                  write (94, '(6x,a)')
     *                '<br>'//BLine(1:BLineL
                  write (94, '(4x,a)') '</t
                  write (94, '(2x,a,/)') '</t
                  write (94, '(2x,a)')   '<t
          write (94, '(2x,a)') '</t
          write (94, '(a)')    '</tabl
Opens
      open (unit   = 80,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old',
     *      name   = '/infobank/programs/keep/gazette.keep')
      open (unit   = 90,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown',
     *      name   = '/tmp/ids2html.1.temp')
          open (unit   = 91,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown',
     *          name   = FileName(1:FileNameLength))
          open (unit   = 92,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown',
     *          name   = '/tmp/ids2html.2.temp')
          open (unit   = 93,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown',
     *          name   = '/tmp/ids2html.3.temp')
          open (unit   = 94,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown',
     *          name   = IDSFileName(1:IDSFileNameLength))
              open (unit = 95,
     *            access = 'sequential',
     *              form = 'formatted',
     *            status = 'unknown',
     *              name =  IDPath(1:IDPathLength))
Calls
      call system ('grep -v \! '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             'grep /gazette/metadata/ | '//
     *             'grep .metadata$ > /tmp/ids2html.1.tem
          call changecase ('SMALLS', AtlasID(AtlasCount))
                  call stringlen (LastID(1:7), LastIDLength)
                  call changecase ('SMALLS', SmallID(1:7))
                  call stringlen (LastLink, LastLinkLength)
          call system ('/bin/sort -u /tmp/ids2html.2.temp > 
     *                 '/tmp/ids2html.3.temp')
          call system ('/bin/rm /tmp/ids2html.2.temp')
          call stringlen (IDSFileName, IDSFileNameLength)
          call stringlen (Area, AreaLength)
          call stringlen (AtlasName(Loop), AtlasNameLength)
              call changecase ('CAPITALS', Cap(1))
              call htmlhead (94, 'CMG InfoBank: '//
     *         AtlasName(Loop)(1:AtlasNameLength)//' '//
     *         Cap(1)//
     *         IDSFileName(Slash(SlashCount-1)+2:
     *                     Slash(SlashCount)-1)//' Activities')
              call changecase ('CAPITALS', Cap(1))
              call changecase ('CAPITALS', Cap(2))
              call htmlhead (94, 'CMG InfoBank: '//
     *         AtlasName(Loop)(1:AtlasNameLength)//' '//
     *         Cap(1)//
     *         IDSFileName(Slash(SlashCount-2)+2:
     *                     Slash(SlashCount-1)-1)//
     *                     ' ('//
     *         Cap(2)//
     *         IDSFileName(Slash(SlashCount-1)+2:
     *                     Slash(SlashCount)-1)//
     *                     ') Activities')
              call changecase ('CAPITALS', Cap(1))
              call changecase ('CAPITALS', Cap(2))
              call htmlhead (94, 'CMG InfoBank: '//
     *         AtlasName(Loop)(1:AtlasNameLength)//' '//
     *         Cap(1)//
     *         IDSFileName(Slash(SlashCount-3)+2:
     *                     Slash(SlashCount-2)-1)//
     *                     ' ('//
     *         Cap(2)//
     *         IDSFileName(Slash(SlashCount)-1+2:
     *                     Slash(SlashCount)-1)//
     *                     ') Activities')
          call includeit (94, 
     *        '/infobank/programs/html/tools/atlas.tabs')
          call includeit (94,
     *        '/infobank/programs/html/tools/atlas.hemispheres.tabs')
          call includeit (94,
     *        '/infobank/programs/html/tools/atlas.continents.tabs')
          call includeit (94,
     *        '/infobank/programs/html/tools/atlas.oceans.tabs')
          call includeit (94,
     *        '/infobank/programs/html/tools/atlas.quickpicks.tabs')
          call includeit (94,
     *        '/infobank/programs/keep/contents.keep')
              call stringlen (IDPath, IDPathLength)
          call stringlen (ImageFileName, ImageFileNameLength)  
          call htmlfoot (94, IDSFileName(1:IDSFileNameLength))

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/gaz/gazboothill/ids2html/ids2html.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:26 PDT 2013  (chd)