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

a 3. fejezethez

03.01. SZELVÉNYJELLEMZŐK SZÁMÍTÁSÁNAK SZUBRUTINJA, KARAKTERISZTIKÁK MÓDSZERÉHEZ (SECPARAM)

LN

0001

SUBROUTINE SECPARAM ( 0, SEC)

03.01

LN

0002

C

SZELVÉNYJEL LE MZ OK SZÁMIT ASA KARAKTERISZTIKÁK MÓDSZERÉHEZ

LN

0003

c

COMPUTATION OF SECTION PARAMETERS TO METHOD OF CHARACTERISTICS

LN

000*«

INTEGER SEC

LN

0005

DIMENSION B (SEC,90)

LN

0006

DO 100 1=1,SEC

LN

0007

B (I , 10) = 8 (I ,12)

LN

0008

B (I , 11) = B(I ,13)

LN

0009

DZ=8(I,12)-B(I,2)

L N

0010

BII,l<f) = B<I,3)»B(I,5)*0Z

LN

0011

8(1,15> = B(I ,(») »OZMBd ,3)+B (I,U) > / 2

2.3-8

LN

0012

8 (I ,17) = B(I,13)/B(I»15)

LN

0013

B(I,18) = B(I,17) «-SORT (9.8 1«B (I , 15) t B (1,1L) )

3.1-158

LN

001<»

B II, 19) = B (1,18)-2. *8(1,17)

3.1-15C

LN

0015

B(I ,20) = B(I,1A)*B(I,18)

LN

00 16

9(1 ,21) = B(I ,l<t) *8(1»19)

LN

0017

8 « ,22) = B(1,15) /(B(I,7) * 0Z* SORT< <f. + B(I,5)»*2>>

LN

0018

B<T ,16)= ((B (1,15)*8 (I, 6) )**2)*B(I, 22) ** (<t ,/3. )

2.1-7

LN

0019

100 CONTINUE

LN

0020

RETURN

LN

0021

END

USA Sí FORTRAN DIAGNOSTIC RESULTS FOR SECPARAM

NO ERRORS

315