OCR Text |
Show 52 Utah Geological and Mineral Survey Water- Resources Bulletin 21, 1976 Table 18. continued IF ( QQQ^ LT. O. O) QQQ= 0.0 06 = ( 3.5* CL* QQa** 1.5)* 60.43 DO 1070 J= 2* 4 IF ( D( J » l). G£ vSl) GO TO 1080 IF ( 0( J- 1 » 1). LT. S1) G0 TO 1070 C = 0. GO TO 1090 1070 CONTINUE 1080 C=( S1- Q( J- 1* 1))/( 0( J* l)- 0( J- l » l>) 1090 P1= C » ( 0( J » 2)- D( J- 1 » 2))* D( J- 1 » 2) El= C*( D( J » - 3)- D< J- l » 3) ) * D( J- 1 » 3) OO 1160 J = 2 « 4 IF ( G( J » 1) . GE. NDGO TO 1170 IF ( G( J- 1 » 1) . LT. NDGO TO 1160 C= 0. GO TO 1180 1160 CONTINUE 1170 C=( N1-( G( J- 1* 1)))/( G( J » l)- G( J- lf1)) 1180 P2= C*( G( J » 2)- G( J- 1 » 2))* G< J- 1 » 2) E2= C*( G( J » 3)- G( J- lf3))+ G( J- 1 » 3) P3= D2 E3= D3 1200 P1= P1* P( K) P2= P2* P( K) P3= P3* P( K) E=. 98 IF ( K. FQ. 7) E=. 9 IF ( K. EQ. 9) E=. 8 IF < K. EQ. 40) E= 1.15 E1= E1* E E2= E2* E E3= E3* E N8= 1.-(. 778* N7)/( 1.+ N7*. 63) S8= 1.-(. 778* S7)/( 1.+ S7*. 63) L8= l.-(. 7 78* L7)/( 1.+ L7*. 63) 1428 N5=((( N3 )* P2* F( I)- N3* E2* F( I* 12)* N6>/ X2.* X< K* I)* B3 l- B5+ B8- B9)* Tl/ 30.5 1429 S5=(( S3 ) » P1* F( I)- S3 » E1 » F( I* 12) « S8)/ 12,* H( K » I) • 1D7 » ( D2* F( I)- 03* F( I* 12))/ 12.* DU( KtI)- B3- B8+ 8S+ B9+ D6 S5=( S5) » Tl/ 30.5 L5=((( L3 )* P3* F( I)- L3* E3 » F( I* 12)* L8)/ 12.* Q( KfI)* QI 1 ( Ktl) - D6*( D1* D2 » F< I)- 01* D3* F( I* 12))/ 12.)* Tl/ 30.5 L4T= L4+ L5 IFdIJ. EQ. DGO TO 1435 IF( L4T. L£. 0.) GO TO 1432 GO TO 1435 1432 D6= 0. IIJ= 1 GO TO 1429 1435 IF( L4T. LE. 0.)|_ 4T = 0.1 IIJ = 0 NN= B( l)- 2 |