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
08.20. AZ ALAPADATTÖMB FELTÖLTÉSÉNEK BFILLPRM AZONOSÍTÓJÚ SZUBRUTINJA LN 0001 SUBROUTINE BFILLPRM (B ,B1,B2,ZI,Z2 iKl»K2, DH,OZ, Q, V,S0,W,E LN 0002 1TD, R1,NAP,JM,TM,SZ,P,BX,ZD, QU LN 0003 C PEL DA, EX AHPLEl 8.4,8.5,8.6 LN 0004 C 3 AOATTOEMB FELTOELTESE, FILLING OF DATA B LN 00 05 INTEGER SZ,P,TD LN 0006 REAL Kl, K2 LN 0007 DIMENSION B (SZ, 33) LN LN 0008 00 09 Q=B1*DH*K1* (Bl*OH/’(Bl*Z.*DH)>**0.666*SQR3r<SO) 0Z=Z1 + 0H-Z2 LN 0010 V=B2*DZ*K2*(B2*DZ/(B2*2.*DZ))**0.666*SQRT(SO> L N 0011 W=DX/DT LN 0012 E=W/19.6 2 LN 0013 B(1,1) -0 . LN 00 11. B (1,2)=Z1 LN 0015 3(1,3) =Z 2 LN 0016 B (1,4) =Q LN 0017 B (1,8) =Q LN 0018 B(1,5)=V LN 0019 B(i,9)=V LN 0020 B (1,6)=Z1*DH LN 0021 B (1,10) = Z1+ OH L N 0022 B (1,7) =0 • LN 0023 B<1,111 = 0. LN 002 4 B(1,17)=B(1,6)-B(1,2> LN 0025 B(l, 181 = 8(1 ,6)-B(l, 3: LN 0026 B(1,12) = B1*B(1,171 LN 0027 B(1,131=B2*B(1,18) LN 0028 B (1,14> = (B(1,121 *K1)«*2*(8(1,12)/(BU2.*B(1,171) )**1.3333 LN 00 29 8 (1,15) = (B( 1, 13) *X2) **2* (8( 1,13) /CB2+2.*8(1,18) ) 1**1.3333 L N 0030 B (1,161 = 1. LN 0031 00 10 1=19. 25 LN 0032 10 8 (1,1) =B(1,1-7) LN 0033 B(1,26) = Q LN 003it B (1,27) = V LN 0035 B (1,281 = 0. LN 0036 8(1,291 = 0. LN 0037 B(l,30)=0. LN 0038 TO= OT LN 0039 Rl= NAP LN 0040 JM=R1*TM/DT *1. LN 0041 DO 25 1 = 2,SZ LN 0042 B (I ,1) =B (1-1,1) + 0X LN 0043 B (1,2) =B (I- 1, 2) -SO*D)( LN 0044 B (I ,3) =B(I- 1,3) -SO*DX LN 0045 DO 11 K= 4,3 0 LN 0046 11 B(I,K)=B(I-1,K) LN 0047 B (I,6)=B( 1-1,6)—SO* DX LN 0048 B(r,10)=B(I-l,10)-SO»OX LN 0049 IF(I.EQ.P) B(I,16)=BX LN 0050 25 CONTINUE LN 0051 ZD= B( SZ, 6) LN 0052 Ql= QW LN 0053 RETURN LN 0054 END USASI FORTRAN DIAGNOSTIC RESULTS FOR BFILLPRM NO ERRORS 08.20 398
