Kozák Miklós: A szabadfelszínű nempermanens vízmozgások számítása digitális számítógépek felhasználásával (Akadémiai Kiadó, Budapest, 1977)
Mellékletek. Programok, szubrutinok, nyomtatási sémák 313 - 3. fejezethez
03.072. KONCENTRÁLT VÍZKIVÉTELI SZELVÉNY SZÁMÍTÁSÁNAK SZUBRUTINJA (OUTTAKEQ) LN 0001 SUBROUTINE OUTTAKEQ(8, SEC,Q N, AA, CC , QERR) 03.07; LN 00 02 c VÍZKIVÉTELEK vagy HOZZAFOLYASOK SZAMITASA LN 0003 c COMPUTATION OF OUTTAKE OR INTAKE DISCHARGE Q LN 000<* INTEGER SEC LN 0005 DIMENSION B (SEC, A0) LN 0006 1=10 LN 0007 IM= 1 + 1 LN 00 G 8 1<*2 Q=B(1,13) LN 0009 8(1,131= (B< I,A0)-B(I,37) *QN *(B(I, 2 9) »B (1,38) *ABS ( Q* QN) ) ) / (ABS(Q) » LN OOIO IB (1,35)- ABS (Q+QN)*B( 1,38) *B (1,36) -B (1,39) ) 3•1-6! LN 0011 B (I +1,13) = ( 0(1,12) *»AA + B II, 37 )-B (IM,37)) /CC LN 0012 IF(ABS((B(I,13)-Q)/Q).GT.QERR) GO TO 1<*2 LN 0013 B(I+1,13)=B(I,13)+QN 3.1-7Í LN 001<* RETURN LN 0015 END USASI FORTRAN DIAGNOSTIC RESULTS FOR 0 UTTAKE9 NO ERRORS 324
