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
396 0 8.19. ÖSSZETETT SZELVÉNYŰ MEDREKBEN LEVONULÓ HULLÁMOKAT FÉLDINAMIKUS MÓDSZERREL SZÁMÍTÓ FŐPROGRAM A 8.4., 8.5. ÉS A 8.6. PÉLDÁKHOZ LN 0001 C NEMPERMANENS ARAMLAS , OESS ZETETT SZELVÉNY, FÉLDINAMIKUS MOOSZER LN 0002 C UNSTEADY; FLOH COMPOUND CROSSECTION PRIZMATIC SYMMETRIC HALF DYN LN 00 03 INTEGER SZ, P, TO, REK, BS . V AR LN 0001* REAL K1,K2 LN 0005 LOGICAL ITER,NYOM,KEZ0,BREAK LN 0006 DIMENSION 3 (151,33) ,A(600,8),L(3) LN 0007 COMMON /107 ITER,BREAK LN 0008 C LN 0009 C LN 0010 READ (60,1) SZ,VAR,NAP,REK,(L(I),I = i,3> ,KEK,BS,P LN 0011 1 FORMAT(1016 ) LN 0012 READ (60,2) B1,B2,K1,K2, DH, OX,DT,Z1,Z2,SO LN 0013 REA O ( 60,2) TM.TB.QHIBA, VHIBA.BX.CC LN 001<* 2 FORMAT(10F8 .0) LN 0015 KEZ D = .TRUE . LN 0016 NYO M= .TRUE. LN 0017 BREAK*.FALSE. LN 0018 CALL BFILLPRN(B,81,B2,Z1 ,Z2 ,K1 ,K2, DH,DZ, Q ,V,S0, H,E, DX, UT.TO, RI LN 0019 l.NAP, JM,TM,SZ,P,BX,Z0, Ql) LN 0020 IFC REK.LT.5 ) GO TO 32 LN 00 21 CALL BPRINT <B ,SZ) LN 0022 32 DO 170 J*l,JM LN 0023 TX= (J-l)*TO LN 002<* .IF(BREAK.ANO.TX.GE.TB) GÓ TO AI* LN 0025 GO TO 43 08.19 08.20 08.21
