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.06. AZ ÁLTALÁNOS SZELVÉNYEK SZÁMÍTÁSÁNAK SZUBRUTINJA

(GENSECQZ)

LN 0001 LN 0002 LN 0003 LN 0009 LN 0005 LN 0006 LN 0007

SUBROUTINE GENSECQZ (B. SEC ,L OH ,UPP, QERR)

C ALTALANOS CSOHOPONTOK QM ZH ÉRTEKEINEK SZÁMÍTÁS A

C COMPUTATION OF VALUE QM ZM AT THE GENERAL POINTS INTEGER SEC.UPP DIMENSION B (SEC,90)

M^UPP-1 N=LOW«-l

LN 0008 LN 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 0019 LN 0015 LN 0016

00 130 I = Nt M 131 Q*B(I,13>

8(I,13)=(B<I,90)-B<I,37) )/(ABS(Q)*(B(I,35)-B(I«38)) * B (I, 3 6)-B (I, 39

1>>

IF(ABSC(B(I ,13)-Q)/Q).GT.QERR) 60 TO 131

BCI,12) = B<I ,13)* «ABS CB (1,13 ))*B (1,35) »8(1 ,36) ) t B (1,37)

130 CONTINUE RETURN E»

USASI FORTRAN DIAGNOSTIC RESULTS FOR GENSECQZ

Na ERRORS

03.06

3.1-5:

3.1- 52

3.1— AP

322