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
38.25. A SZÁMÍTÁSI EREDMÉNYEKET (Q, V, Z, q) VISSZAHELYEZŐ FILLSOLQ AZONOSÍTÓJÚ SZUBRUTIN N 0001 SUBROUTINE FILLSOLQ (A ,B ,SZ ,N 1,12> ,N 0002 c A Q,V,Z,QL ERTEKEK VISSZ AHELYEZESE B-BE . N 0003 c REARAGEMENT OF OATA Q.V.Z.QL IN B . N 0004 INTEGER SZ .N 0005 DIMENSION A(L2,8),B(SZ,33) .N 0006 S (1,10) = A (1 .6) .N 00 07 B (1,11) = A (2 .6) .N 00 08 8<SZ,8>=A(L 2-1,8) . N 0009 B<SZ,9) = A(L2,8) LN 0010 N1E SZ-1 LN 0011 00 161 1=2, N1 . N 0012 M=(I-1)*4 . N 0013 B(I ,8)=A (M-l,8) LN 0014 B (I , 9)=A (M, 8) LN 0015 B(I,10>=A(MH,8) LN 0016 B (I ,11) = A(M»2,8) LN 0017 161 CONTINUE LN 0018 RETURN LN 0019 E IO USASI FORTRAN DIAGNOSTIC RESULTS FOR FILLSOLQ NO ERRORS 28* 08.25 403
/
