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 - 3. fejezethez
»3.071. MELLÉKÁGAK CSOMÓPONTJA SZÁMÍTÁSÁNAK_SZUBRUTINJA (BRASECQZ) . N 00 01 -N 0002 LN 0003 .N 0001) .N 0005 .N 0006 LN 0007 LN 0008 .N 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 0011* LN 0015 LN 0016 LN 0017 LN 0018 LN 0019 LN 0020 LN 0021 SUBROUTINE BRASECQZ (B, SEC.I ,QM,QN, QERR) 03.071 C QM-QN-ZH SZ AM IT AS A MELLÉKÁGAK CSATKL AKOZ ASAINAL C COMPUTATION OF QM-ZM-QN AT THE BRANCHES INTEGER SEC DIMENSION B (SEC,40) IN=Itl 140 QM=B(I,13> QN=B(IM, 13) AA= ABS (QM> *B(I,35)+B (I , 3 6) BB=ABS(QH*-QN)*B(Ifi,38> » B (I *1,39) CC= ABS(QN) * BUM, 35)* B(IM, 36) 8(I,13)=(CC*(B(IA1»40)-BCI, 37>UBB*(B(I,37)-B(IM,37)>)/(CC*(AA-BB) 3.1-65 1-AA * BB) IF( ABS ((B (1,13)-QM)/QM).GT. QERR. OR. ABS ( < B(1,13)-QN)/QN). GT. QERR) 1 GO TO 140 B (1*1,31) *3 (1,13)+8(IN, 13) B (1,12): 6 (1,13) * <B( 1,35) *ABS(B (1,13) *6(1,36)) *8 (1,37)) 3.1-62 B (I ♦ 1, 12 ) =B (1,12) B(IM,12)=B(I,12) RETURN END USASI FORTRAN DIAGNOSTIC RESULTS FOR BRASECQZ NO ERRORS 21» 323
