SUBROUTINE DEFINE(TITLE)
      CHARACTER*128 TITLE
C
C  ***              WRITE DEFINITIONS   ***
C
      WRITE(7,10)CHAR(12),TITLE
   10 FORMAT(A1,A128)
C
      WRITE(7,20)
   20 FORMAT(//' The Jolly-Seber method applied to age-',
     1 'stratified populations'/
     2'    (See Stokes 1984, J. Wild. Manage. 48:1053-1059; also',
     3'     Pollock 1981, Biometrics 37:521-529)',//
     4           '   Definitions and notation:'/)
      WRITE(7,60)
   60 FORMAT(5X,'N(i)     - Estimated number of adults in',
     5' the population just before the i-th sample'//
     8 '     M(i)     - Estimated number of marked adults in the '
     9,'population just before the i-th sample'/)
      WRITE(7,70)
   70 FORMAT(5X,'PHI(i)   - Estimated survival rate of adults ',
     4'between periods i and i+1'//5X,
     4'PHI',1H','(i)  - Estimated survival rate of young between',
     5'periods i and i+1'                   /
     6/'     P(i)     - Estimated capture probability of adults in',
     7' sample i'/)
      WRITE(7,90)
   90 FORMAT('     B(i)     - Estimated number of new animals recruited'
     1,' during the interval i to i+1'/16X,'and alive at time i+1 ',
     2'(Recruitment includes birth and immigration)'/)
      WRITE(7,100)
  100 FORMAT('     SE       - Estimated standard error ',
     ,'(including non-sampling variation)'
     1     //8H     SE','      - Estimated standard error'
     2,' (excluding non-sampling variation)')
      RETURN
      END