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 - 6. fejezethez
a 6. fejezethez 06.01. ALAPADATOT FELTÖLTŐ SZUBRUTIN PRIZMATIKUS TRAPÉZSZELVÉNYŰ MEDREKRE (PRIDAT) LN 0001 LN 0002 LN 00 03 lN 0004 LN 0005 LN 00 06 LN 0007 LN 0000 LN 0009 wN 0010 LN 0011 LN 0012 LN 0013 LN 0014 LN 0015 LN 00 16 LN 0017 LN 0018 LN 0019 LN 0020 LN 0 J 21 SUBROUTINE PRIDAT {SEC ,LO W,UPP ,M, A ) 06.G1 C ADATBEVITEL PRIZMATIKUS MEDREKNÉL C INPUT OP DATA FOR PRISMATIC CANALS INTEGER LOW,UPP,M,I, J.K.SEC DIMENSION A(SEC* M) REAL OX,SL,ES,OZ 101 F0RMAT(F6.1,F8.5, F9. 1 ,F8.2 , F7. 1 ,F7.1, F5.1, F6.1, F7.1, F8. 4, F6.1) READ (60,101) DX,SL,(A(LOH,I) , 1=1, M) ES=OX*SL I=LOW*l DZ=A tLO W, 8) -A (LOW,2) IF (A (LOW, 9) .EQ.O. )A(LOW, 9) = SORT ( JO) »A (LOW, 6) * (A (LOW , 4) ♦■ ( A (LOW , 3) ♦ 1A (LOW,5) *OZ/2>*OZ)**(5/3>/(A(LOW,7)*DZ*SQRT(4*A(LOW,5>**2> »**(2/3)6.1-6 DO 2 J=I,UPP A(J,1) = A(J-1,1)*-DX A(J,2)=A(J-1,2)+ES 00 1 K= 3,M 1 A (J,K) = A (J-1,K) 2 A(J,8)=A(J-1,S)+ES RETURN ENO USASI FORTRAN DIAGNOSTIC RESULTS FOR PRIDAT NO ERRORS 340
