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

»3.042. FELSŐ HATÁRFELTÉTELI SZELVÉNY VÍZHOZAMA SZÁMÍTÁSÁ.

NAK SZUBRUTINJA (FIRSTQM)

LN

0001

SUBROUTINE FIRST QM (B,SEC ,L0W,QERR)

LN

0002

c

FELSOE HATARFELTETEL1 SZELVÉNY QM VÍZHOZAMÁNAK SZAMITASA

LN

00 03

c

COMPUTATION OF DISCHARGE QM AT THE UPPER BOUNOARY

LN

00 ü<*

INTEGER SEC

LN

0005

DIMENSION 6 (SEC,A0)

LN

0006

I=L OH

LN

00 07

120 Q=B(It 131

LN

0008

8(1,13)>=(B<I,12)-B(I,i»0) l/(B(I,3 8) *ABS <Q) (I. 3 9) )

LN

0009

IF(ABS(B(I.13)-Q)/Q.GT.QERR) GO TO 120

LN

0010

RETURN

LN

0011

END

0 3.0^2

3.1- 5<*

3.1- 52

USASI FORTRAN DIAGNOSTIC RESULTS FOR FIRSTQM

NO ERRORS

319