Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- analog2html

Skip navigational links
Loading
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


    
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&
          write (OutUnit, '(2x,a,/,4x,a,/,6x,a,/,4x,a)')
     *        '<tr
     *        '<td valign="top" align="right" width="10%"
     *        '<b>'//ActivityID(1:ActivityLength)//':
     *        '</t
          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<
     *        '</td
     *        '</t
              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)') '</tabl
          write (OutUnit, '(a)') '<
          write (OutUnit, '(a)') '<table border="3
          write (OutUnit, '(a)') '<tr bgcolor="#00ffff
          write (OutUnit, '(a)') '<th><strong>Box<
          write (OutUnit, '(a)') '<th><strong>Scientist<
          write (OutUnit, '(a)') '<th><strong>Accession #<
          write (OutUnit, '(a)') '<th><strong>Comment<
          write (OutUnit, '(a)') '</t
          write (TempLine, '(1024x)')
          write (OutUnit, '(2x,a)') '<t
          write (OutUnit, '(4x,a)')
     *        '<td bgcolor="#00ffff" align="left
          write (OutUnit, '(6x,a)') TempLine(45:54)
          write (OutUnit, '(4x,a)') '</t
          write (OutUnit, '(4x,a)')
     *        '<td bgcolor="#ccffff" align="left
          write (OutUnit, '(6x,a)') TempLine(1:19)
          write (OutUnit, '(4x,a)') '</t
          write (OutUnit, '(4x,a)')
     *        '<td bgcolor="#ccffff" align="left
          write (OutUnit, '(6x,a)') TempLine(20:34)
          write (OutUnit, '(4x,a)') '</t
          write (OutUnit, '(4x,a)')
     *        '<td bgcolor="#ccffff" align="left
              write (OutUnit, '(6x,a)') TempLine(55:TempLength)
              write (OutUnit, '(6x,a)') ' '
          write (OutUnit, '(4x,a)') '</t
          write (OutUnit, '(2x,a)') '</t
              write (OutUnit, 453)
          write (OutUnit, '(a)') '</tabl
              write (OutUnit, 353)
          write (OutUnit, 5)
          write (OutUnit, '(a)')
     *          '<table border="0" width="80%"><
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   = '/infobank/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')
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

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/html/analog2html/analog2html.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:34 PST 2013  (chd)