Full text-L - Philip M. Fearnside - Inpa

l C ~EG!NNING ~F ~A!~ PPOG?A~ FOP SORTSOILPRED CALCULATIONS2 C ~HTS !>Rnr,pA" ( •SGRTSO!LPREO"I SORTS SOIL CHANGE PREDICTION DATAJ c ~NO ·~AKtS t:ALC 1 JLATIONS OF DAYS SP':NT IN EACH LANO use CATcGORY. AljJ OF4 C ~AINl=ALL WHILD IN EAC!-1 LAND USE CATEGORY. THE ~A!N PROGiU/4 CALL) THE; : ~U~POU""!'lE "SORTSP", WHICH CALLS THE SU8ROUT1-.e "SO!LPR". ALL TH~cE6 C ~i:: THES~ A.~E !>J Tl'~ 54"1" SOURCE AND OBJECT FILES. OTHER SUBPROGHMS~ WH!CY AP~ NEEOfD A~D ~H!CH MUST 6E SUPPLIED SEPARATELY ARE: USETA~,~ C CURUSE, DA1100. AND WEATl'IO.~ C ~HE SU~PPrr,RA"S CALLEC ~y SORTSO!LPREO USE THE FORTRAN ~0NlTOR10 c "~11\IUSZl=Rr" FE.HUO.E ANO THE MTS LOGICAL CO,,.PllR!SON OF CA~ACTERS 1•.co"'C"Ill C FUNCT!~N.12 C !>,jPlJT l'>Jl'!'S AR=: 7•TYPElo $l•TYPE2, q•TYP!:13 ll•TYPE2B ol3•TYPeto , l4•0A!LYWEATHER1) c • .. ss~OAiA ANO 10,0NE23tt. CIJTPIJT UN ITS AR':: o••S!NK• (FOR ERROR MESSAGES!. 12 .. so1 L.HIST15 a ... n l~•EVEN""Ll~T16 ... '"'~ ~OFTRA~ ~ONITOR "MlNUSZERC" l=EA'!'URE IS useo.p c 1C'1St.2.n.ON!:23,2!l, ANO 16 ARE THE ~JUMl'IER OF CARDS TO Sc READ )F13 C ~AC4 TYP!:. lCFiJPl IS Tt-