Vízgyűjtőfejlesztés (VMGT 95. VÍZDOK, Budapest, 1978)

Függelék

005 9

0060

0061

0062

006 3

0064

0065

0066

0067

0068

0069

0070

0071.

0072

007 3

0074

0075

0076

0077

0078

007 9

0080

0081

0082

0083

0084

0085

0086

0087

0088

008 9

0090

0091

0092

0093

0094

0095

0096

0097

329

IV G LEVEL 21

MA IN

DATE - 75338 14/43/35

212 FORMAT!?. Hi,* CONCCPC ► AT P IX ' , /, 20 15 I C COMPUTES CONCORD MATRIX

CO 40 1 - l,NOB CC 42 J » I*NOB

SC » Oo

DC 44 K * lfNPV

IFIVLQI(It KI - VLQI(J,K I 144,46,46

46 SC ■ SC ♦ WPV(K)

44 CONTINUE

CC C 1 • J I » SC/TNT C CC(IfJ) - CONCORD INCEX

42 CONTINUE

PRINT 214,1,ICC 11 *J),J«1,NCE)

214 FORMAT(IX,12,IX,20ÍF5.3,1X11 40 CONTINUE

PRINT 233

C DETERMINES MAX RANGE

RGMAX - -I.E20 OC 49 I « 1 ,NPV IF1RGECII - PGMAX 149,45,47

47 RGMAX * RGEII)

49 CONTINUE

C COMPUTES OISCOPC INCICES, STCRES THEM INTO ClJPt.l, FORM LSTADI

C o,o I WHERE L ST AD(I,JI IS ADDRESS (INDEX) IN C1JP OF LAST (SMALL

C SMALLEST) OISCORC INCEX FOP OBJECTS I,J .

I PIER * 0 DC 51 I « 1, NOB DC 53 J « 1 ,NCB L - C

I F ( 1 -J 157, 59, 57 57 CONTINUE

DC !5 K « lfNPV

IF(VLQI(I ,K ) - VLCI (J,K ) )56,55, 55 56 CONTINUE

L * L ♦ l

CIJM(L) - (VLCI(J,K) - VLQI(I,K)l/RGMAX KIJW(L) - K

C CAN BE REMOVED OR COMMENTED

55 CONTINUE

IF(L)59,59,68 68 CONTINUE

PRINT 215,I,J,(01JW(K ),K-l,l )

215 FORMAT(1 D<•,12,•,•,12 ,' )■• ,20F5.3)

PRINT 234,(KIJW(K l,K>l,L)

234 FC R NAT(8X,'FV,2015 )

C COMPUTES ADDRESSES CF 1-1H ELEMENT CF OIJW AFTER MCVEC INTO

C CIJP

55 CONTINUE