USGS InfoBank program -- htmlgazhead

htmlgazhead

  Subroutine to output the current WR MCS standard 

  .html header.
       

   Clint Steele   3/12/96


    

          read (FormUnit, '(q,a)', end = 99)
     *                   Length, ALine(1:Length)

                  write (OutputUnit, '(a)') 
     *                 ALine(1:Length)
                      write (OutputUnit, 2)
     *                    Title(1:LeftSymbol-1), 
     *                    Title(RightSymbol+1:TempLength)
                      write (OutputUnit, 4)
     *                    Title(1:TitleLength)
                      write (OutLine, '(1024x)')
                          write (OutLine(OutLength+1:), '(i3.3)')
     *                        Left(Count)
                      write (OutLine(OutLength+1:), '(i3.3)')
     *                    Left(EntityCount)
                      write (OutputUnit, '(a)') 
     *                    OutLine(1:OutLength)
                      write (OutLine, '(1024x)')
                          write (OutLine(OutLength+1:), '(i3.3)')
     *                        Top(Count)
                      write (OutLine(OutLength+1:), '(i3.3)')
     *                    Top(EntityCount)
                      write (OutputUnit, '(a)') 
     *                    OutLine(1:OutLength)
                      write (OutLine, '(1024x)')
                              write (OutLine(OutLength+1:), 41)
     *                            Count-1
                              write (OutLine(OutLength+1:), 42)
     *                            Count - 1
                          write (OutLine(OutLength+1:), 43)
     *                            EntityCount-1
                          write (OutLine(OutLength+1:), 44)
     *                            EntityCount - 1
                      write (OutputUnit, '(a)') 
     *                    OutLine(1:OutLength)
                      write (OutLine, '(1024x)')
                              write (OutLine(OutLength+1:), 51)
     *                            Count-1
                              write (OutLine(OutLength+1:), 52)
     *                            Count - 1
                          write (OutLine(OutLength+1:), 53)
     *                            EntityCount-1
                          write (OutLine(OutLength+1:), 54)
     *                            EntityCount - 1
                      write (OutputUnit, '(a)') 
     *                    OutLine(1:OutLength)
                      write (OutputUnit, '(6x,a)')
     *                   '<font size="+2" face="arial"&g
                      write (OutputUnit, '(6x,a)')
     *                    Title(1:TitleLength)
                      write (OutputUnit, '(6x,a)')
     *                   '</b>&l
                      write (OutputUnit, '(12x,a)')
     *                    Title(1:TitleLength)
              write (OutputUnit, '(a)') ALine(1:Length)

      open (unit = FormUnit,
     *      access = 'sequential',
     *      file = '/infobank/programs/keep/htmlgazhead.keep',
     *      form = 'formatted',
     *      status = 'old')

      call stringlen (Title, TitleLength)
                      call stringlen (OutLine, OutLength)
                      call stringlen (OutLine, OutLength)
                      call stringlen (OutLine, OutLength)
                          call stringlen (OutLine, OutLength)
                          call stringlen (OutLine, OutLength)
                      call stringlen (OutLine, OutLength)
                          call stringlen (OutLine, OutLength)
                      call stringlen (OutLine, OutLength)
                      call stringlen (OutLine, OutLength)
                          call stringlen (OutLine, OutLength)
                          call stringlen (OutLine, OutLength)
                      call stringlen (OutLine, OutLength)
                          call stringlen (OutLine, OutLength)
                      call stringlen (OutLine, OutLength)