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
397 L N 00 26 A A CONTINUE ' LN 0027 CALL DAM BREAK« 8, QBR, 8S , 0 X,T B,TX, Q1, SZ) 08.2A LN 0028 A3 CONTINUE LN 0029 ITER = . FALSE. LN 0030 KC=0 LN 0031 L 2= VMSZ-i) LN 0032 33 CALL BOUNCON1(B,QR,81 ,T X,T M. Z.ZO, OH, DZ, K1,K2, B1,82, C. V,SZ) 08.23 LN 0033 CALL SECPARAM(B,SZ,K1,K2,B1 ,82) 05.013 LN 003A CALL EQCONSTP<A,B,Q,V,Z,SZ, 81,B2,CC,W,DX,TX,TB,8S,E,L2> 05.02 LN 00 35 CALL EQUSOL7 (A,SZ,L2» 05.03 LN 0036 CALL FILLS0LQ(A,B,SZ,N1,L2> 0 8.25 LN 00 37 CALL ERR CO NT (8, IND , JEL, DQ. 00 .QHIBA , VHI8 A,KC ,N1, SZ) «1.26 LN 0038 IF< I NO .EQ. 1) GOTO 170 LN 0039 IF(JEL.EQ.l) GO TO 33 LN 00 A0 CALL PRINTRES ( B »SZ« KEK» TX. VAR.KC) 98.28 LN 00A1 170 CONTINUE W LN 00A2 STOP LN 00 A3 END USASI FORTRAN DIAGNOSTIC RESULTS FOR FTN.NAIN NO ERRORS
