Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- htmlids2thumbnails

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
htmlids2thumbnails
Synopsis
/infobank/programs/share/htmlids2thumbnails.for
Description
  Subroutine to divide a directory of *ids.html files into

  multiple .html's based on "NAME" tags and
  turning on viewing of associated thumbnail gifs.
       
AUTHOR
  Clint Steele     3/3/99

    
USAGE
  Full pathname to directory to be analyzed.

  e.g.:    /infobank/programs/html/regions2idshtml/

    
Reads
          read (95, '(q,a)', end = 99) 
     *                HtmlIDLength, HtmlID(1:HtmlIDLength)
              read (96, '(q,a)', end = 98) 
     *                NameIDLength, NameID(1:NameIDLength)
                    read (98, '(q,a)', end = 96) 
     *                    ALineLength, ALine(1:ALineLength)
Writes
      write (Command, '(1024x)')
          write (HtmlID, '(1024x)')
          write (Command, '(1024x)')
              write (NameID, '(1024x)')
                    write (ALine, '(1024x)')
                        write (97, 4)
                        write (97, 5)
                        write (97, '(a)')
     *                      ALine(1:ALineLength)
                        write (97, 4)
                        write (ALine, '(1024x)')
                        write (97, 5)
                        write (97, '(a)') ALine(1:ALineLength)
                            write (97, '(t15,a)')
     *                           ALine(CommentStart+4:CommentEnd-1)
                            write (97, '(a)') ALine(1:ALineLength)
                            write (97, '(t15,a)')
     *                           ALine(CommentStart+4:CommentEnd-1)
                            write (97, '(a)') ALine(1:ALineLength)
                            write (97, '(t15,a)')
     *                           ALine(CommentStart+4:CommentEnd-1)
                            write (97, '(a)') ALine(1:ALineLength)
                        write (97, '(a)') ALine(1:ALineLength)
Opens
      open (unit   = 95,
     *      name   = '/infobank/tmp/htmlthumbids.temp',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')
          open (unit   = 96,
     *          name   = '/infobank/tmp/htmlthumbnames.temp',
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'old')
              open (unit   = 97,
     *              name   = HtmlID(1:HtmlIDLength - 5)//
     *                       '_'//
     *                       NameID(10:13)//
     *                       '.html',
     *              access = 'sequential',
     *              form   = 'formatted',
     *              status = 'unknown')
              open (unit   = 98,
     *              name   = HtmlID(1:HtmlIDLength),
     *              access = 'sequential',
     *              form   = 'formatted',
     *              status = 'old')
Calls
      call stringlen (Directory, DirectoryLength)
      call stringlen (Command, CommandLength)
      call system (Command(1:CommandLength))
          call stringlen (Command, CommandLength)
          call system (Command(1:CommandLength))
          call system ('/bin/rm /infobank/tmp/htmlthumbnames.temp')
      call system ('/bin/rm /infobank/tmp/htmlthumbids.temp')

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