Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- htmlfromaccession

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

  the accession database into .html tables.
       
AUTHOR
  Clint Steele     5/2/2003


    
Reads
      read (InUnit, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
Writes
      write (OutUnit, '(a)') '<br 
      write (OutUnit, '(a)')
     *    '<table class="border" rules="all" width="600
      write (OutUnit, '(2x,a)') '<tr class="dark
      write (OutUnit, '(4x,a)')
     *    '<th class="dark"><strong>Box<
      write (OutUnit, '(4x,a)')
     *    '<th class="dark"><strong>Scientist<
      write (OutUnit, '(4x,a)')
     *    '<th class="dark"><strong>Accession #<
      write (OutUnit, '(4x,a)')
     *    '<th class="dark"><strong>Comment<
      write (OutUnit, '(2x,a)') '</t
      write (OutUnit, '(2x,a)') '<t
      write (OutUnit, '(4x,a)') 
     *        '<td class="dark" align="left
      write (OutUnit, '(6x,a)') ALine(45:54)
      write (OutUnit, '(4x,a)') '</t
      write (OutUnit, '(4x,a)') 
     *        '<td class="light" align="left
      write (OutUnit, '(6x,a)') ALine(1:19)
      write (OutUnit, '(4x,a)') '</t
      write (OutUnit, '(4x,a)') 
     *        '<td class="light" align="left
      write (OutUnit, '(6x,a)') ALine(20:34)
      write (OutUnit, '(4x,a)') '</t
      write (OutUnit, '(4x,a)') 
     *        '<td class="light" align="left
              write (OutUnit, '(6x,a)') ALine(55:ALineLength)
              write (OutUnit, '(6x,a)') ' '
      write (OutUnit, '(4x,a)') '</t
      write (OutUnit, '(2x,a)') '</t
      write (OutUnit, '(a)') '</tabl
Opens
Calls

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