Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- metas2html

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
metas2html
Synopsis
/infobank/programs/gaz/gazboothill/metas2html/metas2html.for
Description
  Program to add html links to meta files for gazettes.

       
AUTHOR
  Clint Steele     2/1/2001

    
MODIFIED
   B.F. 11/21/02

       added 'http://walrus.wr.usgs.gov' to path in call to htmlfoot

    
Reads
          read (90, '(t13,q,a)', end = 99) 
     *        FileNameLength, 
     *        FileName(1:FileNameLength)
              read (91, '(q,a)', end = 98)
     *            ALineLength, ALine(1:ALineLength)
Writes
          write (92, '(2x,a)') '<t
          write (92, '(4x,a)') '<td bgcolor="#00ffff
          write (92, '(6x,a)') '<a href="http://walrus.wr.usgs.gov
     *        '/infobank/gazette/metadata/'//
     *        FileName(28:FileNameLength)//'">
     *        '<b>Text only version<
          write (92, '(4x,a,/)') '</t
          write (92, '(4x,a)') '<td bgcolor="#ccffff
          write (92, '(6x,a)') ' '
          write (92, '(4x,a)') '</t
          write (92, '(2x,a)') '</t
          write (LastID, '(7x)')
          write (LastLink, '(255x)')
          write (92, '(a)') '<T
          write (92, '(a)') '<PR
                  write (LastLink, '(255x)')
                  write (92, '(a,a,a)') ALine(1:36),
     *                LastLink(1:LastLinkLength),
     *                ALine(43:ALineLength)
                  write (92, '(a,a,a)') ALine(1:36),
     *                LastLink(1:LastLinkLength),
     *                ALine(44:ALineLength)
          write (92, '(a)') '</PR
Opens
      open (unit   = 90,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown',
     *      name   = '/tmp/metas2html.temp')
          open (unit   = 91,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown',
     *          name   = FileName(1:FileNameLength))
          open (unit   = 92,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown',
     *          name   = '/infobank/gazette/htmlmeta/'//
     *                   FileName(28:FileNameLength)//'.html')
Calls
      call system ('grep gazette /infobank/programs/keep/'//
     *             'infobank_files.keep | '//
     *             'grep .metadata$ | '//
     *             'grep /infobank/gazette/metadata '//
     *             '> /tmp/metas2html.tem
          call htmlhead (92, 'CMG Metadata')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.tabs')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.hemispheres.tabs')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.continents.tabs')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.oceans.tabs')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.quickpicks.tabs')
          call includeit (92,
     *        '/infobank/programs/keep/contents.keep')
                  call stringlen (LastID(1:7), LastIDLength)
                  call changecase ('SMALLS', SmallID(1:7))
                  call stringlen (LastLink, LastLinkLength)
          call htmlfoot (92, 'http://walrus.wr.usgs.gov/'//
     *         'infobank/gazette/htmlmeta/'//
     *         FileName(28:FileNameLength)//'.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/gaz/gazboothill/metas2html/metas2html.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:22 PDT 2013  (chd)