USGS InfoBank program -- keywordslist2index

keywordslist2index

  Program to generate keywords.html, the Geology School home page.

       

  Clint Steele     7/18/2003


    

          read (90, '(q,a)', end = 99)    
     *       ALineLength, ALine(1:ALineLength)

             write (91, '(a)') '</t
             write (91, '(a)') '</t
             write (91, '(a)') '</tabl
             write (91, '(a)') '</di
             write (91, '(a)') '</di
      write (91, '(2x,a)') '<di
      write (91, '(2x,a)') '<br 
      write (91, '(2x,a)') '<table class = "info" width = "600
      write (91, '(4x,a)') '<t
      write (91, '(6x,a)') '<t
      write (91, '(8x,a)') '<u
      write (91, '(10x,a)') '<l
      write (91, '(12x,a)') 'This provides geologic keyword-based '// 
     *                       'access to information within InfoBank.' 
      write (91, '(10x,a)') '</l
      write (91, '(8x,a)') '</ul>'
      write (91, '(6x,a)') '</t
      write (91, '(6x,a)') '<t
      write (91, '(8x,a)') '<img src = "http://walrus.wr.usgs.gov/
     *                                 'infobank/programs/html/'//
     *                                 'training/IBDemo/rawjpg/'//
     *                                'Keywords.jpg" alt= "Keywords" '//
     *                                 'width = "150" /&g
      write (91, '(6x,a)') '</t
      write (91, '(4x,a)') '</t
      write (91, '(2x,a)') '</tabl
      write (91, '(2x,a)') '</di
      write (91, '(2x,a)') '<br 
      write (91, '(2x,a)') '<di
      write (91, '(2x,a)') 
     *     '<table class="border" rules="all" width="600
      write (91, '(2x,a)') '<t
      write (91, '(2x,a)') '<td class="light
              write (91, '(a)') 
     *            '<strong>'//ThisLetter//':<
              write (91, '(a)')
     *            '<a href="//walrus.wr.usgs.gov
     *            '/infobank/programs/html/school/keypage/'//
     *            UnderLine(1:UTab-1)//
     *            '.html">
     *            ALine(1:Tabs(1)-1)//'</a> &
       write (91, '(a)') '</t
       write (91, '(a)') '</t
       write (91, '(a)') '</tabl
       write (91, '(a)') '</di
       write (91, '(a)') '</di

      open (unit = 90,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'old',
     *      name = '/infobank/programs/keep/keywords.keep')
      open (unit = 91,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown',
     *      name = '/infobank/programs/html/school/'//
     *             ThisLetter//'_keywords.html')

          call changecase ('CAPITALS', ThisLetter)
             call htmlfoot (91, 'http://walrus.wr.usgs.gov'//
     *        '/infobank/programs/html/school/'//
     *        LastLetter//'_keywords.html')
      call htmlhead (91, 'CMG InfoBank: Geology School Keywords '//
     *      '-- '//ThisLetter)
      call includeit (91, 
     *    '/infobank/programs/html/tools/definitions.tabs')
      call includeit (91,
     *    '/infobank/programs/html/tools/definitions.dictionaries.tabs')
      call includeit (91,
     *   '/infobank/programs/html/tools/definitions.infobankterms.tabs')
      call includeit (91,
     *    '/infobank/programs/html/tools/definitions.datatypes.tabs')
      call includeit (91,
     *    '/infobank/programs/html/tools/definitions.dataformats.tabs')
      call includeit (91,
     *    '/infobank/programs/html/tools/definitions.firstletter.tabs')
      call includeit (91,
     *    '/infobank/programs/keep/contents.keep')
       call htmlfoot (91, 'http://walrus.wr.usgs.gov'//
     *     '/infobank/programs/html/school/'//
     *     LastLetter//'_keywords.html')