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 - 6. fejezethez

06.03. A FELSZÍNGÖRBE SZÁMÍTÁSÁNAK SZUBRUTINJA (BCOURV)

LN 0001 IN 00 02 LN 0003 IN 00 01» LN 0005 LN 00 06 LN 0007 LN 0008 LN 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 00J.9 LN 0015 LN U016 LN 0017 LN 00 18 LN 0019 LN 0020 LN 0021 LN 0022 LN 00 23 LN 00 29

SUBROUTINE BCOURV(SEC,LOW,UPP,ZERR,A> 06.03

C ELJÁRÁS FEL SZINGOERBEK S ZAMITASARA

C SUBROUTINE FOR COMPUTATION OF BACKWATER COÚRVE INTEGER SEC,LOW,UPP,I,J REAL ZERR,OX,OZ.F,R,C,Z DIMENSION A (SEC,9)

I=LOW»l

DO 1 J=I,UPP

DX=A ( J, 1 > -A (J-1,1)

DZ = A( J-1,8) -A(J-1,2)

F=A(J-1,9> + (A (J-1,3) *A(J-1,5) /2*DZ> *DZ 6.1-3

R=F/(A(J-1,7) *DZ*SQRT(9*A(J-1,5)**2>> 6.1-5

C=A (J-1,8) MA(J-i,9)/F)**2/19.62MA(J-l,9)/F/A(J-l,6) )*»2/

1R**(9/3)*DX/2 6.2-6

A (J, 8) =A (J-l, 8)

2 Z=A(J,8)

DZ=Z-A(J,2)

F=A (J,9) ♦(A(J,3)*A(J,5)/2*DZ)*l'Z 6.1-3

R=F/(A( J,7>*0Z*S0RT(9*A(J,5> **2>) 6.1-5

A (J, 8> = C-(A ( J,9) /F) **2/1 9.62» (A ( J , 9)/F/A (J-l , 6) ) **2/R»* (9/3) *DX/2 6.2-5 IF ( ABS (A (J, 8) -Z) .GT.ZERR) GOTO 2 6.2-7

1 CONTINUE RETURN ENO

USASI FORTRAN DIAGNOSTIC RESULTS FOR BCOURV

NO ERRORS

343