Vízgyűjtőfejlesztés (VMGT 95. VÍZDOK, Budapest, 1978)
Függelék
0098 0099 0100 0101 0102 0103 0104 0105 0106 0107 0108 0109 0110 0111 0112 0113 0114 0115 0116 OUT 0118 0119 0120 0121 0122 0123 0124 0125 0126 0127 0128 0129 0130 01.31 0132 0133 0134 0135 0136 0137 0138 0139 330 IV G LEVEL 21 MAIN DATE = '»5338 I PTE R = IPTFR ♦ L IFMPTER oGTo MXIJP) S1CP C2 C STOP 02 MEANS CAPACITU OF CIJP IS NOT ENOUGHc A0T10N C DIMENSION (ANO MXÍJP o LST At( 1 •J) * IPTER IFIL - X 153,54,58 C SORT DIJW IN DESCENDING CFCEP 58 CCNT IN'JE LM 1 * L - l 63 TEMF = -100o DC él K = l, LM1 IFIDIJM(K) - DIJW|K«1 I 162,él,él 62 TEMP = DIJW(K) DIJWlKl * DÍJÚIKÉI ) x DIJWIK+II = TEMP 61 CCNTINUE IFI TEMP ♦ 100c 163,64,63 64 CCNTINUE C MCVES DIJW SCRTEC, INTO CIJF 54 CCNTINUE LCW = IPTER - L ♦ 1 DC 65 K * LGW,IFTEP K1 * K - LOW ♦ 1 DIJFIK 1 * DIJWIK1 I 65 CCNTINUE 53 CCNTINUE 51 CCNTINUE 118 FCRMATI2F10o0,I2l PRINT 216,ICIJP<K),K»1,IPTER1 216 FCRMATI IX,20F6o3) PFINT 217,(J,J=l,NOei 217 FCRMATIlHl,' ACCRESS MATR IX•,/,20 151 DO 67 I = 1,NOB 67 PRINT 218,I,ILSTAC(I,J1,J*1,NCBI 218 FCRMATIIX,12,2X,20151 C READS GRAPH SPEC IFICATICN <F,t,MSU ECF eY IF «LT, 01 69 CCNTINUE P E A C <ie.,P,C,MS TPTPTTT772,72 71 STCP 77 7? CCNTINUE PRINT 220,MS,IJ,J=1,NC BI 220 FCRMATIlHl,' CISCCRC MATRIX FCR S*'» 12, /,4X,2C16^1 C CBTAINS DISCORC MATRIX CIMSI 111*1 CC 74 I * 1,NC6 DC 15 J * 1,NC6 IF 1111»76, 76,77 14/43/35 INCREASE D
