OCR Text |
Show 48 Utah Geological and Mineral Survey Water- Resources Bulletin 21, 1976 Table 18. continued JJ= 48 WRITE ( 6,310) 310 FORMAT ( 1H1•/// 930X,• USGS 6SL SIMULATION INPUT DATA•*//• 1 OX•• K• Z » A 1 » CE » CL* N1 » S1 » L, 1 •) WRITE ( 6 » 311) K » Z* A » CE » CLfNl* Sl » Ll 311 FORMAT ( 10X* 2I10,2F15.2,4F15.2) WRITE ( 6 » 312) 312 FORMAT (//> 1 OX * » N6 » S6, L6, N9, S9 » Tl•) WRITE ( 6* 313) N6 » 56 » L6* N9 » S9 » T1 313 FORMAT ( 1 OX, 5F15.0, F10.3) IF ( Z. EQ. O) GO TO 681 DO 630 1= 1,55 DO 630 J = 2 » 3 630 S( I* J)= S( I » J)- L( I* J) 680 CONTINUE 681 DO 740 J = l, 4 740 READ ( 0* 305)( D( JtK) » K= 1 » 3) DO 840 J= l, 4 840 READ ( O » 305)( G( J* K)# K= 1* 3) 305 FORMAT ( 3F10.0) K= KOK DO 1250 J= l* 50 IF ( N1. GT. N( J, 1)> GO TO 1250 B( 1)= J GO TO 1260 1250 CONTINUE 1260 DO 1300 J= l* 50 IF ( S1. GT. S( J, 1)) GO TO 1300 B( 2)= J GO TO 1302 1300 CONTINUE 1302 IF ( Z. EQ. O) GO TO 1341 DO 1309 J= l » 50 IF < L1. GT. L( J » 1>> GO TO 1309 8( 3)= J GO TO 1341 1309 CONTINUE 1341 D2= 13.87 D3= S0.0 L5 = 0.0 1 = 1 X7= 0.0 W9 = 0 TXS= N6* S6+ N9* S9* 30000 000 0. IIJ = 0 1185 W9= W9* 1 X7= X7* 1.0 FI = I FK= K X6= < FI- l# 0)* X7*( Tl/ 30.5) X5= X7*< T1/ 30.5)*( FK- 1.0>* 12.0 • FI - 1.0 NN= B( l)- 2 |