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 - 4. fejezethez
a 4. fejezethez 04.01. SZELVÉNYJELLEMZŐK SZÁMÍTÁSÁNAK SZUBRUTINJA, IMPLICIT MÓDSZERHEZ (SECPARIM) LN 0001 SUBROUTINE SECPARIM! B, SE C,0 Z) LN 0002 C SZELVÉNYJELLEMZŐK SZAMITASA LN 0003 c COMPUTATION OF EQUATION CONSTANS LN 0001» INTEGER SEC LN 0005 LOGICAL ITER LN 00 06 COMMON Z10/ ITER LN 0007 DIMENSION BISEC,28) LN 00 03 OO 52 1=1,SEC LN 00 09 IF(ITER) GO TO 46 LN 0010 OO 45 K= 8,1 3 LN 0011 45 3 (I, K)=B (I, K*6> LN 0012 46 OZ=B(I,14)-B(I,2) LN 0013 B(I,17) = B(I,3)+B(I,5)*0Z LN 0014 B(I , 18)= (B( 1,3) + B (I, 17) ) *07/2. LN 0015 Rl= B (1,1 8) / (B(I,7)»0Z*SQRT(4. *-B<I,5>**2) ) LN 0016 B (I ,19)= (8 C I, 18) *9(1,6) ) **2*R1*»1.33333 LN 0017 52 BCI ,15) = BCI ,26) LN 0018 RETURN LN 0019 END USASI FORTRAN DIAGNOSTIC RESULTS FOR SECPARIM NO ERROPS 328
