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 - 7. fejezethez
07.04. A 7.2. PÉLDA FŐPROGRAMJA (Folytatás) LN 001*6 GOTO 31* LN 001*7 33 SOT =0. LN 00>»a TMt 0=100 LN 001*9 C=CH LN 0050 31* CONTINUE lN 00 51 CALL SECPARAM (B,SEC) LN 0052 CALL STRECHPM(8,SEC,L0W,UPP,DT) LN 0053 CALL EQUCONST (B, SEC,LOH, UPP ) LN 00 51* CALL FIRSTZ M (B,SEC»LOW) LN 00 55 CALL LASTZM(9,SEC,UPP) LN 00 56 CALL GENSECQZ(B,SEC,LOW, UPP.QERR) LN 0057 OO 60 1=1,SEC LN 0058 A(I,1) = B (I, 1) LN 0059 All, 12) = B (I ,12) LN 0060 60 A (I,13) = B(I,13> LN 0o61 L = L *■ 1 LN 0062 59 CONTINUE LN 0063 D=2*C LN 0Ü6<» OK=NOU LN 0065 IFÍSDT.EQ.0 . ) GOTO 53 LN 0066 GOTO 55 LN 0067 53 CONTINUE LN 0068 DO 51* K= 1 , S EC LN 0069 A (K.0-2) = A(K,12) LN 0) 70 51* A (K, D-l) = A( K, 13) LN 0071 55 CONTINUE LN 0072 IFÍRK.EQ.0) GOTO 21 LN 0073 GOTO 28 LN 0 0 71* 21 NYOM = .TRUE. LN 0075 RK=RK-CIKL LN 0076 C=1 LN 0077 SOT=G• LN 00 78 CALL RESULTPR(A,TM,VAR,SEC,L) LN 0079 28 NYOM=.FALSE. LN 0080 RK=RK+1 LN 0081 100 CONTINUE LN 00 82 110 CONTINUE LN 0083 ENO 0 3.01 03.02 03.03 03.n<*i 03.051 03.06 03.082 USASI FORTRAN DIAGNOSTIC RESULTS FOR FTN.HAIN NO ERRORS 364
