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
8.27. A SZÁMÍTÁSI EREDMÉNYEK PRINTRES AZONOSÍTÓJÚ SZUBRUTINJA LN 0001 LN 00 02 LN 0003 LN OOOA LN 0005 LN 0006 LN 0007 LN 0008 LN 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 001<* LN 0015 LN 0016 LN 0017 LN 0018 LN 0019 LN 0020 LN 0021 LN 0022 LN 0023 LN 002A LN 0025 _N 0026 -N 0027 SUBROUTINE PRINTRES (8 ,S Z,K EK »TX ,V AR ,KC> 08.27 C EREDNE NY EK NYOMTATÁSI SEMAJA C PRINTING SCHEME OF RESOULTS INTEGER SZ,VAR ÓIM ENSION B (SZ.33) OO 171 1=1,SZ B(I,33) = B(I,(,)/BU,12> B(I,31) = B(I,5)/B(I,13> B<I,32>=(B(I,l»> +BCI,5) ) 7 (Bt 1,12) *8(1,13) > 171 CONTINUE KEK = KEK-1 IF(KEK.EQ.O) GOT O 172 GO TO 170 172 KEK =1f TX= T X/360 0. PRINT 163, V AR ,TX , KC TX=TX*3600. 163 FORMAT(1 Hl, 51 HUNSTEA0Y FLOW COMPOUND CROSSECTION HALF DYN METHOO// 15H V AR = , I 8, F18. 2.6HH0URES,/ lOH ITERACIO=,I3/10X,1HX,10X,2HQF,10X, 22HQH,10X,1HZ,10X,2HHF,10X,2HHH,10X, 2HQL, 8X.2HVF , 8X , 2HVH.7X , 2H VK,/) OO 169 1 = 1, SZ, 5 PRINT 16 8,(8(1,1) ,8(1, A) ,B (I, 5) , B < I ,6) ,B (I, 17) , B (I , 18) ,8(1,11) , 1B(I ,33), 8(1,31) ,B(I, 32)) 168 F0RMATÍF15.1,6Fi2.<t,3F9.2/) 169 CONTINUE 170 RETURN ENO USASI FORTRAN DIAGNOSTIC RESULTS FOR PRINTRES NO ERRORS 405
