0094 X *FIFGE(1,0,COUNT.K,3.5)
0095 L N5.K=N5.J+DT*C100*((N4.J*S45)-(N5.J*MOR))*PULSE,(1,1.5,12)
0096 L N4.K=N4.J+DT*C100((N3.J*S34)-N4.J)*PULSE(1,1.5,12)
0097 L N3.K=N3.J+DT*C100((N2.J*S23)-N3.J)*PULSE(1,1.5,12)
0098 L N2.K=N2.J+DT*C100((N1.J*S12)-N2.J)*PULSE(1,1.5,12)
0099 L N1.K=N1.J+DT*C100((NO.J*S01)-N1.J)*PULSE(1,1.5,12)
0100 L NO.K=NO.J*(1-PULSE(1,1.5,12))+DT*C100*PULSE(1,1.5,12)*FLEG.J
0101 A ADUL.K=((B.K-(MW*NY.K*0.667))/MW)*FIFGE(0,1,0,NY.K) (NY.K*0.667 = N5.J)
0102 A FLEG.K=FIFGE(0,(FIFGE(NY.K,ADUL.K,ADUL.K,NY.K)),0,ADUL.K)
0103 C PROP=2.0
0104 C BAL=0
0105 C PART=0.8
0106 NOTE WOOD STORK AGE STRUCTURE
0107 N NO=5000
0108 N N1=3000
0109 N N2=2740
0110 N N3=2470
0111 N N4=2195
0112 N N5=10405
0113 N NY=0 SET AT ZERO
0114 N B=8.194E6 (N5 X LW)
0115 NOTE WOOD STORK ANNUAL SURVIVAL RATES
0116 C S01=.6
0117 C S12=.914 ,
0118 C S23=.901
0119 C S34=.888
0120 C S45=.875
0121 C MOR=.184
0122 C MW=875.0
0123 C MWEE=896.7
0124 C C100=64 RECIPROCAL OF DT
0125 C LW=787.5
0126 C TFD=0.50
 -4