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
06.08. MELLÉKÁGAS VÍZFOLYÁSOK FELSZÍNGÖRBÉJE SZÁMÍTÁSÁNAK FŐPROGRAMJA LN 0001 C KEZDETI FELTETEL SZANITASA MELLEKAGAS VÍZFOLYÁSON UN 0002 C COMPUTATION OF INITIAL CONDITION IN RIVERS WITH BRANCHES LN 0003 INTEGER SEC,O.M,I, J,F, L,N,LOW.UPP,K LN 000*» REAL ZD.ZERR L N 00 05 DIMENSION A (73,10) , I NQ (3,5) LN 0006 LOGICAL PRIZCH LN 0007 DATA A/73 0* 0. 0/ LN 0008 REA0 (6 0, 100 )SEC,D,M»ZO »ZERR.PRIZGH LN 0009 10 0 FORMA ri3T10,2F10.6, L 10) LN 0010 N=2*MU LN 0011 REA D (60,101) ( (INQtl, J> , J=i,N> ,1 = 1,3) LN 0012 101 FORMAT (515) LN 0013 IF( PRIZCH) GO TO 1 LN 001% CALL NATOAT (1,SEC,7/tA> LN 0015 GO TO 3 LN 0016 1 UPP=0 LN 0017 J=M *1 LN 0018 OO 2 I = J , N LN 0019 LOW = UPPH LN 00 20 UPP = INQ(2,I ) LN 0021 2 CALL PRIDAT (SEC ,LOH,UPP ,9, A) LN 00 22 3 CONTINUE LN 0023 DO % 1=1,N LN 0 0 2% J=I NQ (1,1) LN 0025 K=I NQ ( 2, I) LN 0026 DO % L=J,K LN 00 27 % A (l, 9) =1 NO{ 3,1) LN 00 28 DO 5 1=1,M LN 0029 J=H + 1 + 1 LN 00 30 K = INQ (2, I) LN 0031 5 A (K , 1 0 > = TNQ (3 , J ) /ABS (A (L ,1) -A (L-l, 1) ) LN 0032 A (1,8) =Z D LN 0033 UPP = lNO( 2,M +1) LN 00 3% CALL DCOURV (SEC , 1, UPP, ZE RR, A) LN 00 35 OO 6 I =1, M 06.03 06.02 06.01 06.03 352
