Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- htmlfromhyphens

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
htmlfromhyphens
Synopsis
/infobank/programs/share/htmlfromhyphens.for
Description
  Subroutine to format "---" hyphenated .item file information 

  into .html tables
       
AUTHOR
  Clint Steele     5/2/2003


    
Reads
      read (InUnit, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
      read (ALine(Dash:ALineLength), '(i)', err=2) Item
           read (InUnit, '(q,a)', end = 99)
     *          ALineLength, ALine(1:ALineLength)
              read (InUnit, '(q,a)', end = 12)
     *              ALineLength, ALine(1:ALineLength)
Writes
      write (OutUnit, '(a)') '<br 
      write (OutUnit, '(a)')
     *    '<table class="border" rules="all" width="600
          write (80, '(i5.5,1x,a)') Item, ALine(1:80)
          write (OutUnit, '(a)') '<br 
      write (OutUnit, '(a)') ALine(1:ALineLength)
      write (BadFile, '(1024x)')
      write (OutUnit, 4) ALine(1:Dash - 6), Item
           write (OutUnit, 5)
           write (OutUnit, 6) ALine(Dash:ALineLength)
          write (OutUnit, '(a,//,a,/)') '</table>', '&
              write (LongID, '(10x)')
              write (OutUnit, 7) 
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/'//SmallLine(Dash:Dash)//
     *            '/'//SmallLine(Dash:ALineLength)//
     *            '/html/'//LongID(1:IDLength+3)//'.meta.html">
     *            CapLongID(1:IDLength+3)//'</
              write (OutUnit, 7) ALine(Dash:ALineLength)
              write (OutUnit, 8)
          write (OutUnit, 9) 
              write (OutUnit, 10), 'Contents',
     *                                     ALine(Dash:ALineLength)
              write (OutUnit, 10), 'Comments',
     *                                     ALine(Dash:ALineLength)
              write (OutUnit, 10), 'Notes',
     *                                     ALine(Dash:ALineLength)
                  write (OutUnit, '(a)') ALine(1:ALineLength)
              write (OutUnit, 13)
              write (OutUnit, 14) ALine(1:Dash - 5),
     *                           ALine(Dash:ALineLength)
              write (OutUnit, '(a)') ALine(1:ALineLength)
      write (OutUnit, '(a)') '</tabl
Opens
Calls
      call changecase ('SMALLS', SmallLine)
      call stringlen (BadFile, BadLength)
              call stringlen (SmallLine(Dash:ALineLength), IDLength)
              call changecase ('CAPITALS', CapLongID)

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/share/htmlfromhyphens.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:36:54 PDT 2013  (chd)