Full text-L - Philip M. Fearnside - Inpa

601 !F(VAR023( !60J .EQ. \IAROlOI !Pllll J r,o TO 363602 362 COlllT!Nl~603 WR!TEl6,2050J VAROlOI !P~ll.IBEFFlll,!AFTFN604 2050 FORMATllX, 1 PREV!OUS FIELC CARC 2 INFO. MISSING FOR FN:•,15,605 l/lX,'!N CCMPARISCN OF: BEFORE FI~LD•,15, 1 , AFTER FIELD',606 2 15, 2011X,/J, lXJ607 GO TO 508608 363 !PL2(NPVSAMJ • I60609 C LINE ~UMBER OF CARD 2 l~FO. FOR THIS PREVIOUS SAMPLE610 GO TO a.oo611 407 CONTINUE612 I52 • /llDVSAM +613 .6.02 CCNT!NUE614 ~EGilllN!/llG OF EXPLICIT DC LCOP ENDING AT STATEMENT 406, 152 IS :ou~r:R11615 c Doi::s CNE ITERAT!CN FOR EACH PREV llJUS" SAMPLE (INCLUDING BEFORE H.'1PLEJ616 C COUNTER IS DECRE~E~TED TC ZERC AS !PLINE ARRAY IS IN REVERSE DATE JRDER617 152 • !~2 - l619 IF II52 .LE. OJ GC TO 406619 IPVl • !PLINEII52J620 IPV2 • !PL2 I 152 J621 IF II52 .i::o. N!>~SA"J LCURUS • l622 C ASSIGNS VIRGIN AS LAST CURRENT USE FOR THE FIRST EVENT623 C IJF T~E HISTORY PERIOD BEFCRE T~E EARLIEST SAMPLE624 IF (VAROlll!PlllJ .eo. ll GO TC 5491::25 c TPAlllSFER IF PRESENT "8EFORE" FIELD use IS VIRGIN626 DO 507 Il•l,ICCN23627 C F!lllDS P~ElllCUS AND BEFCRE FIELD INFORMATICN IN ONE23628 !FIVAR3671!1J.EO.VAR00211PV1J.ANO.'.NOT.IVAR369CllJ.GT.OIJGO TO 50ll629 507 CONTINUE630 WRITE 112,90211 ~000211Pllll63 l