USGS InfoBank program -- itemgroups

itemgroups

  Program to generate tables of every 100 items.
    

  Clint Steele   8/28/97


    

     open (unit = 90,
*          access = 'sequential',
*          status = 'unknown',
*          form   = 'formatted',
*          file   = HtmlFile(1:HtmlLength))

    

     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 HREF='//
*                '"http://walrus.wr.usgs.gov'//
*              '/infobank/programs/html/containers2html'//
*              '/containers/'//Container(5:5)//
*              '/'//Container(1:5)//
*              '.html">',
*                Loop,'</A></TD>'
               write (90, 5)
     write (90, 12)
         write (90, 13) BigLoop+100, BigLoop+100, 
*             BigLoop+100, BigLoop+199
         write (90, 15)
     write (90, 14)
    

     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))