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

Függelék

327

foptran

0101

0002

0003

0004

0005

0006

0007

0008

0009

0010 001 X 0012

0013

0014 001 5 0016 0017 0010

0019 002 0 0021 0022 002 3

0024

C C EJECT RANKING t*Y MfTFCC u rL EC TR F I 0

C PROGRAM RESTRICTICNS

C MAX NUMBER OF POINTS OF V11U » 2C (MXFVI

C FAX NUMBFR CF PHJECTS = ’C (MXCbl

C MAX NUMBER ÜF LLAl IFiCAT ICNS IN A R„Vr SCALE * 20 (MXCLI

C MAXIMUM RANGE FOR / P.Vo SCALE « ICOo RM A X1

Cl ME NS I CN IDPV(?9 1 ,WPVI?0 I ,RCk C?0 I, ML (2C I, ICCL (2'J, 20 I 11 VL.OL (2 3t 20111[>01 ( 2 CI » VLC1 ( 2 C12CI tCC ( 20 • 201 t CI Jk( 201 »hONl (3 11 2CIJF(41C0I»LSTACI2C»2Cl»KIJVI2C l»CCI2C» TC I C DIJP IS A VECTOR CONTAIN INC ALL THE CISCLPC INDEXES

CCMNON KGPH(20»20ltICCe(2CI,NCe C KGPH IS THE MATRIX CCNTA1MNC THE GRAPH CIF,U,S)

C NOO IS THE NUMBER CF CBJECTS IN FPCELEN

CATA KB 12/' '/

CAT/ HOM / ,PV*('»,NMPF't,l '/

MXIJP * 4100

C NXIJP IS MAXIMUM ICIMENSICM LENGHT OF VECTOR DIJP

ISTCP * 0

C MEANS NO ERRORS IN 1NPUP«* IF NE 0 5TCPS AFTER READING ALL LATA

, NPVtNCB

C “ n JQ IS NUMBER GF oejFCIS.» NFV IS NUMBER CF PCiNTS Gf VIEW

100 FC FMATI 212 I

C READS SCALES FCR All FC1NTS CF VIEW

PRINT 201 DC 10 I « ltNPV

p f ar ni. IOPVII It WPV( I I»PCE ( 1 l»NCL( I I NIC = MlII)

IF INT0I04»04»C6

04 PRINT 203,I»IDPVm,WFV(ll»RGE(I I 203 FCFMAT(lX,I2,IX,A2»F7e2»F6o2l

GC TC !C 06 CONTINUE

RIAL 103,1 ICCIII» Jl, VICKI,Jl,J«J ,NTQI c ' ■'rjPVni is ic cf pciNT rf view i (2 cmraci »

C NPVIII IS WEIGHT OF I-TH FCIM OF VIEW

C RGE( I I IS RANGE OF SCALF Of I-TH PCINT OF VlPw

C NJL(I I IS NUMBER OF PCINTS IN SCALC ICUAlIFIt AT IONS I CF 1-Th P

C POINT OF VIEW

C IDOL( I t JI IS JTH CUALIFIC AT 1CN IN I-TH PLINT OF VIEW ( 2 CHAMAC

C TERS)

C VLUdtJI IS CCFRESFC IC INC VALUE IN TFfc SlAlf

10? F0PMAT(A2»RX,F10oC*FlCJr,!2 I

103 FCRMAT(8(A2»F0oOI»/»e(A2,FF.CI»/»eiA2»F3oOI I

201 FCRMAT OH! ,'PCINTS CF VIEW',/,' NC ID WUhT RANGE (CUM* VALUfc I • I PRINT 202,T,I0PV(n,NFV<II,FClUl,IICCL(l,JI»VlCltl,JI,J*l,NTCI

202 F0FMAT11X, 12, IX , A2, F7,2,F d 2 , S( 1X, A2, • * • ,F 6» 2 I ,/, 17X ,S ( 1 X , 421'

lFíoTI,/»’. 7X»9|!X,A Ft»' II

10 CCN1INUE

IV G LEVEL 21 MAjN DATE * 7533P 14/43/'»*