Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- itemgroups

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
itemgroups
Synopsis
/infobank/programs/html/itemgroups/itemgroups.for
Description
  Program to generate tables of every 100 items.

       
AUTHOR
  Clint Steele   8/28/97


    
Reads
Writes
          write (HtmlFile, '(255x)')
          write (HtmlFile, 200) BigLoop/100
          write (Command, '(255x)')
              write (Command, 204)
              write (Command, 201) BigLoop/100, BigLoop/100
              write (Command, 202) BigLoop/100, BigLoop/100
              write (Command, 203) BigLoop/100, BigLoop/100
          write (90, 963)
              write (90, 100)
              write (90, 101) BigLoop/100, BigLoop/100
              write (90, 102) BigLoop/100, BigLoop/100
              write (90, 103) BigLoop/100, BigLoop/100
          write (90, 9)
              write (90, 11) BigLoop-100, BigLoop-100, 
     *             BigLoop-100, BigLoop-1
              write (90, 15)
         write (90, 10)
                    write (90, 4)
                write (Container, '(i5.5)') Loop
                write (ItemFile, '(255x)')
                write (ItemFile, '(a)') 
     *              '/infobank/programs/html/containers2html'//
     *              '/containers/'//Container(5:5)//
     *              '/'//Container(1:5)//
     *              '.html'
                    write (90, 7) Loop
                    write (90, '(a,i,a)') 
     *                '<TD ALIGN="RIGHT"><A
     *                '"http://walrus.wr.usgs.gov'//
     *              '/infobank/programs/html/containers2html'//
     *              '/containers/'//Container(5:5)//
     *              '/'//Container(1:5)//
     *              '.html">
     *                Loop,'</A>
                    write (90, 5)
          write (90, 12)
              write (90, 13) BigLoop+100, BigLoop+100, 
     *             BigLoop+100, BigLoop+199
              write (90, 15)
          write (90, 14)
Opens
          open (unit = 90,
     *          access = 'sequential',
     *          status = 'unknown',
     *          form   = 'formatted',
     *          file   = HtmlFile(1:HtmlLength))
Calls
          call stringlen (HtmlFile, HtmlLength)
          call stringlen (Command, CommandLength)
          call htmlhead (90, 'CMG '//Command(1:CommandLength))
          call includeit (90, 
     *        '/infobank/programs/html/tools/more.tabs')
          call includeit (90,
     *        '/infobank/programs/html/tools/more.databases.tabs')
          call includeit (90,
     *        '/infobank/programs/html/tools/more.validators.tabs')
          call includeit (90,
     *        '/infobank/programs/html/tools/more.othertopics.tabs')
          call includeit (90,
     *        '/infobank/programs/keep/contents.keep')
                call stringlen (ItemFile, ItemLength)
          call htmlfoot (90, HtmlFile(1:HtmlLength))

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