USGS InfoBank program -- dohead

dohead

  Subroutine to add .html headers for GAZ2HTML.


       

                  call htmlgazhead (92, 'CMG InfoBank Atlas: '//
     *                           AreaName(1:AreaNameLength)//' '//
     *                           Equip(3,EquipLoop)(1:Length3),
     *                           EntityCount, Top, Left)
                  call htmlgazhead (92, 'CMG InfoBank Atlas: '//
     *                           AreaName(1:AreaNameLength)//' '//
     *                           Equip(2,EquipLoop)(1:Length2),
     *                           EntityCount, Top, Left)
                  call htmlgazhead (92, 'CMG InfoBank Atlas: '//
     *                           AreaName(1:AreaNameLength)//' '//
     *                           Equip(1,EquipLoop)(1:Length1-1),
     *                           EntityCount, Top, Left)
                  call htmlgazhead (92, 'CMG InfoBank Atlas: '//
     *                           AreaName(1:AreaNameLength)//' '//
     *                           Equip(1,EquipLoop)(1:Length1),
     *                           EntityCount, Top, Left)
          call includeit (92, 
     *        '/infobank/programs/html/tools/atlas.tabs')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.hemispheres.tabs')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.continents.tabs')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.oceans.tabs')
          call includeit (92,
     *        '/infobank/programs/html/tools/atlas.quickpicks.tabs')