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.011. ALAPADATOT FELTÖLTŐ SZUBRUTIN PRIZMATIKUS TRAPÉZSZELVÉNYŰ MEDREKRE, KARAKTERISZTIKÁK MÓDSZERÉHEZ (PRIDATCH)

. N

3001

SUBROUTINE PRI DA TCH ( B, SE C,L OW , U»P , ES ,ZO, OX) 06.011

„ N

00 02

C

ADATBEVITEL PRIZMATIKUS MEDREKRE KARAKTERISZTIKÁK MÓDSZERÉHEZ

. N

0003

C

INPUT OF DATA FOR PRISMATIC CANALS BY METHOO OF CHARACTERISTIC

. N

0009

INTEGER SEC.UPP

. N

0005

DIMENSION B(SEC,90)

. N

0006

READ (60, 101) 0X,SL,(B(L0H,K),K=1,9)-N

03 07

101

FORMATI2F10.0/9F8.0)

. N

00 08

ES=DX*SL

. N

0009

N=lOW*l

. N

0010

O Z= B (LOW , 8) -B (LOW, 2)

LN

0011

I F( B ( LOW , 9) .EO.O .0) 8 (LOW,9) =SQRT (SL ) *B (L OW, 6) » ( 9 (LOW ,9 ) + ( e ( LOW ,3)*

_ N

0012

1B(LOW,5)»OZ*. 5)*DZ)»’(5. /3. >/<B (LO W , 7 > *0 Z*SQRT ( 9 . *B (L0W,5)**2> ) **

. N

0 013

2(2. /3. )

.N

0019

J=L OW

_ N

0015

DO 2 I=N,UP P

LN

0016

B (I , 1)=B (J, 1) »OX

. N

GO 17

8 (I , 2)=B (J, 2) -ES

_ N

0015

DO 1 K=3,9

LN

0019

1

B (I, K) =B (J, K)

LN

0020

B (I , 8) =B (J, 8) -ES

. N

00 21

2

J=I

L N

0022

DO 3 I=LOW,UPF

LN

0023

DO 3 K = 10,12,2

LN

00 29

B (I ,K)=B (1,8)

LN

0025

3

Btr ,KH)=B(I,9>

L N

00 26

Z 0= B < U PP, 12»

LN

0027

RET URN

LN

0026

END

USASI FORTRAN DIAGNOSTIC RESULTS FOR PRIOATCH

NO ERRORS

341