Full text-L - Philip M. Fearnside - Inpa

36 1 IF ( V 14 I I 4 I • LT. 0 .A NO. 11"13 I I 41 • LT. N. ANO. V 12 I I 41 .LT. A I 811391•811391 +t.36 2 C I 2 ~ I s C ( 2 2 I + l •363 GC TD 500364 130 IFIV141!41.GE.0.4NC.V13(141.GE.N.ANO.VlZI 141.GE.Al811401•8(llt01+1.36 5 ! F ( V 14 I 14 I.LT .r. .ANC. VU I 141 • GE .N .ANO. V 12 I I 41 .GE .A 18 ( 1411 •8 I l .. 11 + l.36 6 ! F ( V l 4 ( I 4 I • GE. (!lOI .. BlTlOI I Clllll411 \,Q TO 1'6412 140 "11101 • O."'13 136 ~ONT!NUE414 135 CONTINUE415 c FQLLOWI'I\. 2 LCO~S CALCULATE C1 N ~ PH JOINT TRANSITION PR06ABILiricS"'1690 137 Il2•118417 QQ 138 !13•118418 !14 • 112 • a+ 11~ - e + 9~'+l ~ 115 = l 12 + 1 7420 IF lClllSI .LE. 0.0011 \,0 TD 142