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
LN 00 At GOTO 3A L N 00A7 33 S DT = 0 • L N 00A8 TM( 0 = 100 LN 00A9 C=C + 1 L N 0050 3A CONTINUE L N 0051 CALL SEC PAR AH (Bf SEC) LN 0052 CALL STRECHPM(B,SEC,LOW,UPP,DT> LN 0053 CALL EQUC0NST(8,SEC,L0W,UPP > LN 005A CALL FIRSTZM(8,SEC,L0W> 03.01 0 3.02 03.03 0 3. 01*1 LN 0055 CALL LASTZM <B,SEC,UPP> LN 0056 CALL GENSECQZ(B,SEC,LOW,UPP ,Q£RR> LN 0057 DO 60 1=1,SEC LN 0058 A (I , 1) =B (I, 1) LN 0059 A(I,12) = BU,12> LN 0060 60 A (I » 13 ) = ß (I ,13) LN 0061 L=L+1 LN 0062 59 CONTINUE LN 0063 0=2*C LN 006A OK= NO +1 LN 03*65 I Ft SDT.EQ.O .) GOTO 53 LN 0066 GOTO 55 LN 0067 53 CONTINUE t'N 0068 00 5A K=1,SEC LN 0069 A (K , 0-2) =A< K, 12) LN 0070 5 A A (K , 0- 1) =A( K, 13) LH 0071 55 CONTINUE L N 0072 IF(RK.EQ.O) GOTO 21 L N .0073 GOTO 28 LN 007* 21 nyoh=.true. L N 0075 RK= RK-CI KL LN 0076 C=1 LN 0077 S DT = 0 , LN 0078 CALL RESULTPR(A,TH,VAR,SEC, L) LN 0079 28 NYOM = .FALSE. LN 0080 RK= RK + 1 LN 00 81 100 CONTINUE LN 00 82 110 CONTINUE L N 0083 END 03.051 03.06 03.082 USASI FORTRAN DIAGNOSTIC RESULTS FOR F TN. MAIN NO ERRORS 357
