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.011. SZELVÉNYJELLEMZŐK SZÁMÍTÁSÁNAK SZUBRUTINJA ÖSSZETETT PRIZMATIKUS ÉS SZIMMETRIKUS HULLÁMTERŰ MEDREKRE, SZTATIKUS MÓDSZERHEZ (SECPAR 1)

az 5. fejezethez ,

LN Oü 01 LN 0102 LN 1j 03 LN J)04 LN 0005 LN 0006 LN 0007 LN 0008 LN 0009 LN üű 10 LN 0011 LN 0012 LN 0013 LN 0014 LN 0015 LN 0016 LN 0017 LN 0018 LN 0019 LN 00 20 LN Oo21 LN 00 22 LN 0023 LN 0024

SUBROUTINE SECPftRÍ(B,SEC) 05.011

C SZELVÉNY JELLEMZŐK SZÁMITASA A SZTATIKUS MÓDSZERHEZ C COMPUTATION OF SECTION PARAMETERS FOR STATIC METHOO INTEGER SEC OIMENSION B (SEC.28)

DO 5 1=1,SEC H=B(I,14)-B(I,2)

BŰ=B (I, 3)

AM=8 (1,5)

B(I,17)=80«-AH*H

F=9 (1,4) «■ (B0«-.5*AM»H) *H

3 (I , 1 8) =F

9(I»19)=(F*B(I,6)*(F/<8(I,7)+H*SORT(4.0*AM**2)))**0. 666666667) **2 IF(B(I,8)-B(I,22>) 2,2,1

1 9 (I ,24) = B (I , 21) (I,23)

GOTO 5

2 CONTINUE

IF(B(I,S)-9 (1,20)) 4,4,3

3 3 (I,24) =8(1,21)

GOTO 5

4 B (1,24) = 0.0

5 CONTINUE RETURN END

USASI FORTRAN DIAGNOSTIC RESULTS FOR SECPAR1

NO ERRORS

331