C***********************************************************************
C     THIS SUBROUTINE IS DESIGNED TO WRITE OUT INFORMATION IN THE OUTPUT
C     NEAR THE TOP OF THE PAGES TO IDENTIFY THE OUTPUT.
C***********************************************************************
      SUBROUTINE HEADER (INDEX)
C***********************************************************************
C     DECLARATIONS
C***********************************************************************
      INCLUDE 'PARMTR.INC'
      CHARACTER*1 LABEL, HEAD, UL
      INTEGER CNT, STATUS
      LOGICAL GRP, POOL, PEST, SEST, DESC, DEF, CUTP, TRUNC, WARN
      LOGICAL HELP
C***********************************************************************
C     COMMON STATEMENTS
C***********************************************************************
      COMMON /IND/ IC, II, IREP, STATUS
      COMMON /NUM/ XL(MAXLIN), WIDTH, N, CNT, CONV(3), VARN, IDF, WARN
      COMMON /ALPHA/ LABEL(80), HEAD(30), UL(3,25)
      COMMON /PAGE/ IPAGE
      COMMON /OPTION/ GRP, POOL, PEST, SEST, DESC, DEF, CUTP, TRUNC,
     1 HELP
C***********************************************************************
C     WRITE OUT THE GENERAL LABEL AT THE TOP OF THE PAGE.
C***********************************************************************
      IF (INDEX.EQ.2) GO TO 10
      IPAGE=IPAGE+1
      WRITE (6,20) IPAGE,LABEL
      IF (INDEX.EQ.1) RETURN
C***********************************************************************
C     WRITE OUT THE SECONDARY LABEL WHICH CONTAINS THE LABEL ON THE
C     DATA CARDS.
C***********************************************************************
   10 WRITE (6,30) HEAD
      IF (GRP) THEN
          WRITE (6,40)
      ELSE
          WRITE (6,50)
      ENDIF
      WRITE (6,60) N
      WRITE (6,70) XL(II),(UL(2,J),J=1,25)
      IF (TRUNC) THEN
         WRITE (6,80) WIDTH,(UL(1,J),J=1,25)
      ELSE
         WRITE (6,90)
      ENDIF
      RETURN
C***********************************************************************
C     FORMAT STATEMENTS
C***********************************************************************
C
   20 FORMAT (/'1Program TRANSECT -- Line Transect Data Analysis',
     2' Program',16X,'Page',I4/
     3' Utah Coop. Wildl. Res. Unit.  Methods and',
     4' Tests from Burnham et al. (1980).'/
     5' Program Version 2.2, 11/1/88, modified by Gary C. White,',
     6' Colorado State Univ.'/1X,80A1)
   30 FORMAT (///1X,30A1)
   40 FORMAT ('0Data Type     Grouped Data')
   50 FORMAT ('0Data Type     Ungrouped Data')
   60 FORMAT (' Sample Size   ',I4)
   70 FORMAT (' Line Length   ',G10.4,2X,25A1)
   80 FORMAT (' Width ',8X,'Truncated Data, Width = ',G10.4,1X,25A1)
   90 FORMAT (' Width ',8X,'Untruncated Data, Unbounded Width  ')
      END