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.013. SZELVÉNYJELLEMZŐK SZÁMÍTÁSÁNAK SZUBRUTINJA ÖSSZETETT PRIZMATIKUS ÉS SZIMMETRIKUS HULLÁMTERŰ MEDREKRE, FÉLDIN AMI KUS MÓDSZERHEZ (SECPARAM) LN 00 01 SUBROUTIüC SECPARAM (B,SZ,K1 ,K2,Ö1,B2) N 00 02 C SZELVÉNY JELLEMZŐEK SZAMITASA FELDYNAMIKUS LN 0003 c COMPUTATION OF SECTION PARAMETERS TO HALP LN 00 0A INTEGER SZ LN 0005 REAL Kl, K2 LN 0006 LOGICAL ITER LN 0007 DIMENSION B(SZ,33) L N 0008 COMMON 710/ ITER »BREAK LN 0009 DO 52 1=1,SZ LN 0010 IF (ITER) GO TO A6 L N 0011 DO A5 K=A.7 L N 0012 A5 B(I,K)=B(I, K*A> LN 0013 A6 B(I,19) = B1* (B(I,10)-B(I, 2>> LN 00 1A B(i,2 0) = B2* <B(I,10>-BII,3)> LN 0015 B(I,26)=B(I,8) LN 0016 B (I , 27) = B (I , 9) LN 0017 R1=BCI,19)/ ÍBH-2.*(B Cl, 101-8(1,2» ) ) LN 0018 B(I ,21) = K1*K1*B(1,19>**2*Ri»*1.33 33 LN 0019 R2= B(I,20)/(B2*B (1,16) +2.® (8(1,10 >-B (1,3 > LN 0020 B (1,22) = K2*K2»B < 1,20 )**2«R2 «*1.333 3 LN 0021 B(I,2A) = B(I,10)-B(I,2) L N 0022 B(I,25> = B(I,10)-B(I,J> LN 0023 B(I ,28) = BCI ,10) LN 002A IF(ITER) GO TO 52 L N 0025 DO A7 K=12, 18 LN 00 26 A7 B(I ,K)=BCI,K + 7) LN 00 27 52 CONTINUE LN 0028 RETURN L N 0029 END MÓDSZERREL DYNAMIC * > Ü5.013 USASI FORTRAN DIAGNOSTIC RESULTS FOR SECPARAM NO ERRORS 333
