Full text-L - Philip M. Fearnside - Inpa

61 GO TO 10362 101 IP • 06~ IF CVAll122 .EQ. l .OR. VAR122 .EQ, 2 .QR. VAR122 .EQ. 9 .QR,64 1VAR1Z2 .EO. 23 .OR. VAR1Z2 .EC:. 24 .QR. VARl22 .EQ. 25 .OR. VARlZZ65 2.ec. 301 IPs966 C 9 IS PSEUDOOEVICE FOR VIGNA CV!l-2-2411>7 IF (VA~l22 .eo. 3 .OR. VAR122 .EQ. 4 .OR. VAR122 .EQ. 5 .OR.68 l VAR122 .eo. 6 .CR.69 1Vt.Rl22 .EQ. 7 .OR. VAR122 .EQ. 8 ,QR, (VAR122 .GE. 10 .ANO. VAIUZ270 2.LE.131.Qfl,(VAR122.GE.t6.ANO.VAR122.LE.181.0R.(VAR122.GE.71 320 .AND. VA11122 .LE. 221 .OR. VAR122 .EO. 26 .OR. VAR122 .EQ. 2772 4.011. VAR122 .EQ. 2~1 !P"'B7'3 C 9 IS PSEUDODEV!CE FOR Oi-ASECLl.S (PSl-2-24174 IF (IP .EIJ. 01 GO TO 10375 GO TO 10476 102 IF (VAR122 .Eo. 21 IP 2 1177 c 11 IS oseuDODEV!CE FOR 5~EET MANIOC !SMl-2-24179 IF CVAll122 .NE. 21 IP"' 1079 C 10 IS OSEUDODEV!CE FOii eITTER (CR MIXED OR UNIOENTIFIEDI MAN10Cl3~l-2-24180 GO TO 1048 l l 03 IP "' 1292 C 12 JS PSEUOOOEV!CE FOR "CTHER" !OTl-2-24183 104 CONTINUE84 WRITE (IP, 10061 VAR107, VARlQ6, VAR109, VARl22~5 1006 FOR~AT(tx,• PRINC. CRCO CASE= 1 1151' Fill: '.15, 1 P.C.• •,13,• VARI:86 tTY• ',I3187 ~O 105 !5=1,ICOSl88 IF CVAP002(!51 .eo. V4Rl061 GO TO 106~9 105 CONTINUEC/O WRITE (!I', 1005191 1005 FORMATl2X, 'l'I92 C ABOVE FORMAT 1005 ~OLCS SPACE FOR MISSING CARO l INFORMATION93 GO TO 10794 106 llRITE CIP, 10011 lJl