OGC FORTRAN IV REV 05.52NS 



C *** PROGRAM NAME s CHET 



C **• PERFORM CALCULATIONS FOR LIME AND NON-LIME SOIL 

 C *•* USEING VARIABLES N03, COVER AND APR 



DIMENSION PRNT(fe) 



REAL NNL. INL, NL, IL. N03 



IPSOI = 



IPN03 = 



IPCOV = 



IDOKTR = 1 



SOIL = 



WRITE (12,5) 

 5 FORMAT C«6X, "ANNUAL PRECIPITATION") 



WRITE (12,10) 



10 FORMAT (8X,"SOIL",3X,"N03",3X,''COVER''»lOX,"0",7X,"5",6X,"10",6X,''l 

 -5",6X,"20",SX,''25") 

 WRITE (12,15) 



15 FORMAT (IX,"-" . 



") 



DO 200 IN03 = 1,31,10 

 N03 a IN03 - 1 

 DO 100 ICOV = 1,51,10 

 COV 3 ICOV - 1 

 DO 90 lAPR = 1,26,5 

 APR s lAPR - 1 

 C ••* COMPUTATION 1 



INL = .1 + .0006869 * (30 - N03) ** 1.9 



NNL » 7.« - .003067 * (30 - N03) •» 2.2 



FLORNL B 1581 + 12.0968 * N03 



YPCNL s 1003 + 16.9355 * N03 - FLORNL 



ANL = EXP (-(ABS( (COV/50-1) / ( 1 - INL ) ) **NNL ) ) 



ARN s EXP(-(C1/(1-INL))**NNL)) 



YPAPR s FLORNL + YPCNL * ((ANL - ARN) / (1-ARN)) 

 HP s .0137 * YPAPR « APR *• 1.35 * .9618 



PRNT (IDOKTR) = HP 

 IDOKTR 3 IDOKTR ♦ 1 

 90 CONTINUE 



IPSOI a SOIL 

 IPN03 s N03 

 IPCOV a COV 



WRITE (12,95) IPSOI, IPN03, IPCOV, PRNT 

 95 FORMAT (10X,11,5X,I2,5X,I2,5X,6F8.0) 

 IDOKTR = 1 

 100 CONTINUE 

 200 CONTINUE 

 SOIL a 1 



00 700 IN03 a 1,31,10 

 N03 3 IN03 - 1 

 DO 600 ICOV a 1,51,10 

 COV = ICOV - 1 

 DO 500 lAPR a 1,26,5 

 APR » lAPR - 1 

 C *•* COMPUTATION 2 •** 



NL s 11 - .001372 • (30 - N03) •* 2.6 



IL a .1 + .0001054 * (30 - N03} *• 2.6 



FLORL ■ 1458 + 12.0968 • N03 



YPCL a 1983 + 16.9355 • N03 - FLORL 



BLN 3 EXP (-fABS((C0V/50-l) / (1 - ID) ** NL)) 



BRN s EXP (-((1 / (1 - ID) ND) 



YPL a FLORL ♦ YPCL * ((BLN - BRN) / (1 - 8RN)) 



HP a .0137 * YPL * APR ** 1.35 



PRNT (IDOKTR) a HP * .9618 



1 IDOKTR a IDOKTR + 1 



; 500 CONTINUE 



J IPSOI a SOIL 



1 IPN03 a N03 



; IPCOV a COV 



J WRITE (12,95) IPSOI, IPN03, IPCOV, PRNT 



J IDOKTR a 1 



T 600 CONTINUE 



! 700 CONTINUE 



T STOP 



; END 



Note that all statements within the brackets comprise the Fortran IV 

 program necessary to output of tables values presented in the paper. 

 This should run on any computer subject to minor changes to accommodate 

 programing peculiarities of the system: e.g., "PRINT" in place of 

 "WRITE" is appropriate for IBM systems. 



7 



