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.02. SZAKASZJELLEMZŐK SZÁMÍTÁSÁNAK SZUBRUTINJA, KARAKTERISZTIKÁK MÓDSZERÉHEZ (STRECHPM)

LN

0001

SU9 ROUTINE STREC HPM ( B, SE C,L OH.UPP,DT)

03.01

LN

0002

C

SZAKASZJELLEHZOK SZAMITASA KARAKTERISZTIKÁK MÓDSZERÉHEZ

LN

00 03

c

COMPUTATION OF STRETCHPARAMETERS TO METHOD OF CHARACTERISTICS

LN

0004

INTEGER SEC.UPP

LN

0005

OIMENSION 6 (SEC ,40)

LN

00 06

DO 110 I=LOW,UPP

LN

00 07

IF(I.EO.LOH) GOTO 111

LN

00 06

Q=DT*B(I,18)/(ABS(B(I-1, 1)- B(I,1> ) ♦ DT* <B (1,18) - B(I-1,18) )/2.)

3.1-1

LN

00 09

B(I ,24> = B(I .10) *Q* (9(1-1 ,10 )-B(I,10) )

3.1-*

LN

0010

B (I, 26) = B (1,11 )«-Q*(B (1-1,11 )-BU, 111 )

LN

0011

B(I,28)=B(I,16)+Q*(B(I-1,16)-8(I,16))

LN

0012

B (I ,301 = 8(1 .21) »QMB <1-1 ,21)-B(I,21)>

LN

0013

B<I,32> = Q*ABS(8(I-i,l>-B<I, 1»)

LN

0014

IFd.EQ.UPP» GOTO 110

LN

0015

111

P=0T*B(I jl9 )7(ABS(B(I, 1>-B< IH,1> > M)T*(8<I,19> - B(I*1,19> > /2.)

3.1 -A

LN

0016

B(I ,25) = B(I,10) »PMB(I*1,10)-B(I,10> )

3.1-4

LN

0017

B(I , 271 = 8(1,11) »PMB (I »1,11 >-B (1,11) >

LN

0018

8(I,29) = B(I,16)»P*(8(I»1,16)-8(I,16>)

LN

0019

B<I , 31>=B(I ,20) »P*(B(I»1,20 )-B(I,20)t

LN

0020

B(I ,33) = P*ABS(B(I,1)-B (1+1, 1) )

LN

0021

110

CONTINUE

L N

0022

RET URN

LN

0023

END

USASX FORTRAN DIAGNOSTIC RESULTS FOR STRECHPM

NO ERRORS

316