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
L N 00 36 J=M *1+1 L N 0037 K=I NQ (2, T) LN 00 38 L =1 NO (It J) LN 0039 N=I NQ (2, J) L N 00 A0 A (L , 8) =A CK, 8) LN 00A1 CALL BCOURV (SEC,L,N,2ERR,A) LN 00 A2 6 CONTINUE LN 00A3 WRITE (61,10 2) LN 00 AA 102 FORMAT (1H1//35H HYORAULIC OATA AND COMPUTED VAL UES//5 X,AH X (M) , AX , LN 00A5 1AHZ (M) ,AX,5 HBO(M) ,3X,6HF0(M2) ,AX , 1HM.6X, 1HK,5X,5HP0 (M) ,AX ,AHZ (M) , LN OOA6 23X, 7H0CM3/S) ,2X, 8HOL (M3/S)//) LN 00A7 N=INQ(2,MU ) LN 00A8 WRITE (61, 10 A) ( (A (I, J), J = 1,10) ,1 = 1, N) LN 00A9 10AFORMAT(F9.1,F8.3,2F9.3,F7.2,F6.t,F9.3,F10.A,F8.2,P8.2//) LN 0050 N=2*M*1 LN 0351 K=M+2 LN 0052 DO 7 I =K , N LN 0053 LOW= INQ (1,1) LN 005A UPP = INQ(2,I ) LN 0055 WRITE (61,105) L N 0056 105 FORMATdHO, 8HBRANCHES//) LN 0057 WRITE (61,10 A) ( (A(L,J),J=1,10> ,L = LOW,UPP) LN 0058 7 CONTINUE LN 0059 ENO USASI FORTRAN DIAGNOSTIC RESULTS FOR F TN. MAIN NO ERRORS 23 Kozák 353
