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

Függelék

328

0025 002 6

002 7 002 8

002 9

0030

0031

0032

FORTRAN

0033

0034

0035

0036

0037 003 8

0039

0040

0041

0042

0043

0044

0045

0046

0047

0048

0049

0050

0051

0052

0053

0054

0055

0056

0057 005 8

IV 6 LEVEL 21

MAIN

DATE * ?5338 14/43/35

C

C

C

C

C

C

C

C

c

c

c

PRINT 204,1 CHDNlfJl,J»1,31,1»! ,NPV)

204 FORMAT (1H1 OBJECTS ANC FAT INCS UNCEP ALL POINTS OF VIEW*,/,

1* OBJECT •,4X,1112A4,A2)I PRINT 236,(ICPVIII, 1,1 = 1,NFV I

236 FORMAT!* NCo ■ 10 ',11C1X,A2*' l',12,*> *I,/, 11X, 111 1X, A2,*( •

1,12, • I *1 I PRINT 233 233 FORMAT(* * I

READ OBJECTS ANC RATINGS DC 15 I * 1,NOB

READ IdE. I DOB(I I, (JCGIIJtfVICIII»J)»J=1,NFVI ~ I DOeIII IS ID CF THE I-TH OBJECT

IDQIIJI IS QUALIFICATION CCCE CF THE OBJECT IN TFE J-TF SCALE IF BLANK NUMERICAL VALUE MOST BE PRESENT IN NEXT FIELD CF CARD VLQIUtJI IS VALUE IGRACINGI OF TH 1-VH OBJECT IN THE J-1H SCAL SCALE«. o ML ST BE GIVEN WFEN NO IDQIIJI IS GlVENo 105 FORMAT(A2,8X,7(A2,F8.0I,/,10X,7(A2,F8o0I,/,10X,7(A2,FEe Cl t CONVERT QUALIFICATION CCCE TC XCALE VALUE DO 20 J » l.NPV IT « IDQIIJI

IF CODE * BLANK TAKE CCPP ESPCNCING NUMERICAL VALUE PUNCHED IN CARD

1F I IT e EQo KBL2 I GO TC 20

IF CODE •NEo BLANK LOCK IN TABLE I ICCL I J, • I,VLQIJ,o I NTQ * NCLIJI DC 25 L « 1, NTQ IFIIT c EQo IOQLUfUI GC TC 25 25 CONTINUE ISTCF * 1 PRINT 207,I,J,IT

207 FORMAT IT80,' 10EJ , VP,CCCE I»I•,2 I 3,A2, • I INVALID*!

GC TC 20

25 VLQIII,J) * VLCLIJ,L)

20 CONTINUE

PRINT ?C9,I,IDC&fl),(ICQ!lJ),VLQIII,J),Jsl,NPVI 209 FORMAT I1X, 12, • » *,A2,' *, 111 IX , A 2 , •* • , F 6«, 2 I , / , 5X, • *,11I1X,A2,

I * * • , F 6o ? I I

15 CONTINUE

IF I 1ST OP 131,32,31

31 PRINT ?U , I STOP

211 FORMAT!• I STOP « *,131 STCF 01

32 CONTINUE

COMPUTES TOTAL WIGHT TFT = Oo DC 39 I * J,NFV 39 "WT = TWT « WPVIII PRINT 212, I 1, 1-1»NOB I