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 - 8. fejezethez
08.04. PARAMÉTEREK ÉS SZELVÉNYJELLEMZŐK KEZDETI ÉRTÉKEINEK CINPAR AZONOSÍTÓJÚ SZUBRUTINJA L N UUU1 SUBROUTINE CINPA R t B , ZO , S EC) 08 ,0A LN 00 02 C PELOA, EXAMPLE 8.1, 8.2, 8.3 LH 0003 C KEZDETI PARAMÉTEREK SZAMITASA TJ ES TJH-RE LN 0001. c COMPUTATION OF INITIAL P ARA MERERS FOR TJ ANO TJ .1 LN 0005 INTEGER SEC LN 0006 OIMENSION B (SEC,28) LN 0007 OO 2 1=1,SE C LN 0008 B(I,11)=BCI,3).B(I,5)*(B (I, 3>-B(I,2)> 2. 3-16A LN 00 09 B(I ,12) = 8 (I .A) MB (1,3) .3 (I, 11))» (3 (I,8)-B(I,2> ) /2. 2. 3-19 LN 0010 Rl= 8(1,12) / (B < I« 7) + (3 (1,8) -B (I, 2) ) *SQRT (A*B (I , 5) ** 2) ) LN 0011 B(I ,13)= (B< 1, 6>*B(I, 12) ) **2 "Rl**l. 33333 2. 1-7 LN 0012 OO 2 K=1,6 LN 0013 B (I * K.13) =B (I , K + 7) LN 001A 2 B (I , 26) = B (I ,9) LN 0015 ZO= B(SEC, 8) LN 0016 RETURN LN 0017 END USASI FORTRAN DIAGNOSTIC RESULTS FOR CINPAR NO ERRORS 377
