Link to USGS home page
USGS Home
Contact USGS
Search USGS
Coastal & Marine Geology InfoBank

USGS InfoBank program -- analog2html

Skip navigational links
Search InfoBank
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab Activities tabs
   
InfoBank Programs: by Name   by Topic  
   
Expanded description
Topic Description
Name 
analog2html
Synopsis 
/infobank/programs/html/analog2html/analog2html.for
Description 
  Program to convert .analog files into .analog.html files.
Author 
  Clint Steele     11/19/97
Opens 
 open (unit   = HistoryUnit,
*      file   = '/infobank/programs/html/analog2html/history.log',
*      access = 'sequential',
*      form   = 'formatted',
*      status = 'unknown')

 open (unit   = StaffUnit,
*      file   = '/infobank/programs/keep/scientists.keep',
*      access = 'sequential',
*      form   = 'formatted',
*      status = 'old')

 open (unit   = ListUnit,
*      file   = '/tmp/analog2html.temp',
*      access = 'sequential',
*      form   = 'formatted',
*      status = 'old')

     open (unit   = InUnit,
*          file   = InName(1:InNameLength),
*          access = 'sequential',
*          form   = 'formatted',
*          status = 'old')

     open (unit   = OutUnit,
*          file   = OutName(1:OutNameLength),
*          access = 'sequential',
*          form   = 'formatted',
*          status = 'unknown')
Reads 
     read (StaffUnit, '(q,a)', end = 98)
*          ALineLength, ALine(1:ALineLength)

     read (ALine(1:29), '(a)') Staff(StaffCount)
     read (ListUnit, '(q,a)', end = 99)
*           InNameLength, InName(1:InNameLength)

         read (InUnit, '(q,a)', end = 999)
*            TempLength, TempLine(1:TempLength)

             read (TempLine(Dash:TempLength), '(i)') Item
             read (InUnit, '(q,a)', end = 999)
*                TempLength, TempLine(1:TempLength)

                 read (InUnit, '(q,a)', end = 999)
*                   TempLength, TempLine(1:TempLength)

     read (InUnit, '(q,a)', end = 9999)
*        TempLength, TempLine(1:TempLength)
Writes 
     write (Staff(StaffCount), '(255x)')
 write (Command, '(255x)')
     write (InName, '(255x)')
     write (OutName, '(255x)')
     write (OutName, 2) InName(1:InNameLength)
     write (HistoryUnit, '(a)') OutName(1:OutNameLength)
     write (ActivityID, '(10x)')
     write (OutUnit, '(a)')
*       '</td></tr></table>'

     write (OutUnit, '(2x,a,/,4x,a,/,6x,a,/,4x,a)')
*        '<tr>',
*        '<td valign="top" align="right" width="10%">',
*        '<b>'//ActivityID(1:ActivityLength)//':</b>',
*        '</td>'

     write (OutUnit, '(4x,a,/,6x,a,/,4x,a,/,2x,a)')
*        '<td valign="middle">',
*        '<a href="http://walrus.wr.usgs.gov'//
*        OutName(1:OutNameLength-11)//'meta.html'//
*        '">Metadata</a>',
*        '</td>',
*        '</tr>'

         write (TempLine, '(1024x)')
                 write (OutUnit, 567)
                 write (OutUnit, 553)
                 write (OutUnit, 5)
             write (OutUnit, 4)
             write (OutUnit, 7) TempLine(1:Dash - 6),
*                               Item/100, Item, Item
             write (OutUnit, 192)
             write (OutUnit, 191) TempLine(Dash:TempLength)
             write (HtmlPath, '(255x)')
             write (OutUnit, 8) HtmlPath(1:InNameLength - 7),
*                               ActivityID(1:ActivityLength)
                 write (OutUnit, 887)
             write (OutUnit, 888)
             write (OutUnit, 10)
                 write (OutUnit, 12)
                 write (TempStaff, '(255x)')
                         write (OutUnit, 11) 
*                             TempStaff(1:TempStaffLength),
*                             TempLine(Dash:TempLength)
                 write (OutUnit, 15) 
*                    TempLine(Dash:TempLength)
                 write (OutUnit, 50), 'Contents', 
*                                     TempLine(Dash:TempLength)
                 write (OutUnit, 50), 'Comments',
*                                     TempLine(Dash:TempLength)
                 write (OutUnit, 50), 'Notes',
*                                     TempLine(Dash:TempLength)
                     write (OutUnit, '(a)') TempLine(1:TempLength)
                 write (OutUnit, 53)
             write (OutUnit, 6) TempLine(1:Dash - 5),
*                               TempLine(Dash:TempLength)
     write (OutUnit, '(a)') '</table>'
     write (OutUnit, '(a)') '<p>'
     write (OutUnit, '(a)') '<table border="3">'
     write (OutUnit, '(a)') '<tr bgcolor="#00ffff">'
     write (OutUnit, '(a)') '<th><strong>Box</strong></th>'
     write (OutUnit, '(a)') '<th><strong>Scientist</strong></th>'
     write (OutUnit, '(a)') '<th><strong>Accession #</strong></th>'
     write (OutUnit, '(a)') '<th><strong>Comment</strong></th>'
     write (OutUnit, '(a)') '</tr>'
     write (TempLine, '(1024x)')
     write (OutUnit, '(2x,a)') '<tr>'
     write (OutUnit, '(4x,a)')
*        '<td bgcolor="#00ffff" align="left">'
     write (OutUnit, '(6x,a)') TempLine(45:54)
     write (OutUnit, '(4x,a)') '</td>'
     write (OutUnit, '(4x,a)')
*        '<td bgcolor="#ccffff" align="left">'
     write (OutUnit, '(6x,a)') TempLine(1:19)
     write (OutUnit, '(4x,a)') '</td>'
     write (OutUnit, '(4x,a)')
*        '<td bgcolor="#ccffff" align="left">'
     write (OutUnit, '(6x,a)') TempLine(20:34)
     write (OutUnit, '(4x,a)') '</td>'
     write (OutUnit, '(4x,a)')
*        '<td bgcolor="#ccffff" align="left">'

         write (OutUnit, '(6x,a)') TempLine(55:TempLength)
         write (OutUnit, '(6x,a)') ' '
     write (OutUnit, '(4x,a)') '</td>'
     write (OutUnit, '(2x,a)') '</tr>'
         write (OutUnit, 453)
     write (OutUnit, '(a)') '</table>'
         write (OutUnit, 353)
     write (OutUnit, 5)
     write (OutUnit, '(a)')
*          '<table border="0" width="80%"><tr><td>'
Calls 
 call stringlen (Command, CommandLength)
 call system (Command(1:CommandLength))
     call stringlen (OutName, OutNameLength)
     call stringlen (ActivityID, ActivityLength)
     call changecase ('CAPITAL', ActivityID)
     call htmlhead (OutUnit, 
*        'Activity Physical Data: '//
*        ActivityID(1:ActivityLength))

     call includeit (OutUnit,
*   '/infobank/programs/html/tools/activities.tabs')

     call includeit (OutUnit,
*   '/infobank/programs/html/tools/activities.activities.tabs')

     call includeit (OutUnit,
*    '/infobank/programs/html/tools/activities.firstletter.tabs')

     call includeit (OutUnit,
*        '/infobank/programs/keep/contents.keep')

                 call stringlen (TempStaff, TempStaffLength)
                 call changecase ('SMALL', 
*                    TempStaff(1:TempStaffLength))

                     call stringlen (Staff(Count), StaffLength)
     call stringlen (Path, PathLength)
     call htmlfoot (OutUnit, Path)

Skip footer navigational links

InfoBank   Menlo Park Center   Santa Cruz Center   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  

Accessibility FOIA Privacy Policies and Notices

U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/html/analog2html/analog2html.doc.html
Page Contact: InfoBank staff
Page Last Modified: Tue Mar 11 03:45:15 PDT 2008  (wcs)

FirstGov button   Take Pride in America button