in. Subroutine FUN for hypothesis (o2. 



FISHERY BULLETIN; VOL, 77. NO. 4 



IV. Subroutine FUN for hypothesis (u3. 



Subroutine FUN for hypothesis ai4. 



SUBROUTINE FUN(F,D,P,X) 



DIMENSION D(ll,P(l),X(l) 

 C NG IS THE NUMBER OF POPULATIONS TO BE 

 C COMPARED 



NG = 2 

 C SUBROUTINE FUN FOR HYPOTHESIS a,4: ALL 

 C CURVES IDENTICAL 



IND=NG + 1 



XL=P(1) 



XK=P(2) 



XT=P(3) 



XX=EXP(-XK*(X(IND)-XT)) 



F = XL*(1.-XX) 



D(1) = 1.-XX 



D(2) = XL*XX*(X(IND)-XT) 



D(3) = -XL*XX*XK 



RETURN 



END 



776 



