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

05.012. SZELVÉNYJELLEMZŐK SZÁMÍTÁSÁNAK SZUBRUTINJA ÖSSZETETT PRIZMATIKUS ÉS SZIMMETRIKUS HULLÁMTERŰ MEDREKRE, FÉLSZTATIKUS MÓDSZERHEZ (SECPAR 2)

LN

OQ Ql

S U8ROUTINE SECPAR2(B,SEC,K2V

LN

oao2

C

S ZEL VÉNY JEL LEMZOK SZÁMIT ASA A FEL-SZT ATIKUS MÓDSZERHEZ

LN

0Q03

C

COMPUTATION OF SECTION PARAMETERS FOR HALF STATIC METHOD

LN

OOOA

INTEGER SEC

LN

OQ 05

DIMENSION B (SEC,28)

LN

00 06

DO 5 1=1,SEC

LN

00 07

H=B(I,1A)-B(I,2)

LN

0008

3fl=B (I, 3)

LN

0009

A M= 8 (I, 5 )

LN

OQ 10

B (I ,17) = B0tAM»H

LN

0011

F = B(I,A> ♦■(30*,5*AM*H)*H

LN

0012

3 (I , 13) =F

LN

0013

IF(B(I,8)-3(I,22>) 2,2,1

LN

JülA

1 0B=B (1,21)73(1,231

LN

0015

GOTO 6

LN

0016

2 CONTINUE

LN

0017

IF(B(I,3)-3(I,20)) A,A,3

LN

0018

3 0B=B(I,21)

LN

0019

GOTO 6

LN

0020

A D 3=0.0

LN

00 21

B(I,19) = (F*8(I.6)*(F/(B (1,7) +H*SQRT (A. 0>AM**2U): **0.6666 6666 7 > »*2

LN

0022

GOTO 7

LN

00 23

6 H1=B(I,1A)-B(I,22)

LN

00 2A

B (1,19) = (F*B(I,6) *(F/ (B (I ,7) +R*SQRT (A.Q*AH**2lU-**0..666b66667*

LN

00 25

1H1*DB*K2*(Hl*OB/(OB+2. *H1))**0.666666667)*»2

LN

00 26

7 B (1,17) = 08*- 80 ♦AM*.H

LN

00 27

3(I,18)=H1*DB+3(I,A)+(80*.5*AM*H)*M

LN

0028

5 3(1,2A) = 0,0

LN

00 29

RETURN

LN

03 30

END

USASI FORTRAN DIAGNOSTIC RESULTS FOR SECPAR2

NO ERRORS

332