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

Függelék

0140

0141

0142

0143

0144

0143

0146

0147

0143

0149

0130

0131

0132

0133

0134

0133

0156

0137

0138

0139

0160

0161

0162

0163

0164

0163

0166

0167

0168

0169

0170

0171.

0172

0173

0174

0179

0176

0177

0179

0179

0180

0181

016 2

0183

331

IV G LEVEL

21

77

111 ■ 0

INDXC ■ 0

GO TO 80

76

CCNT INUE

II - I Jl ■ J - 1 IF(J - 1178,78,79 76 Jl - NOB II- I - 1

73 INDXO - LSTA0U1, Jl I 80 I NO X1 • ISTADU , Jl

IF( INOX1 - INDXO - 6S»e3,84,e4

83 DC(1,J» • 0.

GC TC 73

84 CONTINUE

K • INDXO ♦ MS CC(1,JI • OIJP(K)

13 CONTINUE

PRINT 219,1,(DC(I,JI,J-1,NCBI 219 FCFMT<1X,I2,1X,20F6.2»

74 CONTINUE

C OETAINS GRAPH G(P,C,MSI

C INITIALIZES MATRIX CF GRAPH

OC 91 I ■ 11 NCR CO 91 J ■ 1,NOB

41 MGFHllfJI • 0

PRINT 222,P,Q,MS,(J,J-1,NC£ \

222 FOR HAT ( 1M1, ' GRAPH G (' , F «. 2 , • , • , F5* 3, •, •, 12 ,' ) • , / , 7 X , 201 21 PRINT 23],(IOCB(Jl,J-l,NCe »

231 FORMT ( EX, 2CA3 )

DC 92 I - 11 NOB DO 43 J • 1,NCB I F (I - J 194,93, 94 54 CONTINUE

IFICCII,J» - P)93,35,35 93 CONTINUE

1FUCI 1 « J I “ 0194,36,91 44 CONTINUE

xGFH(!,JI • 1 33 CONTINUE

PRINT 221,1,1 OCPIIlflXCPHll,JI«J-l,NCR)

22' F C 6 N A T (lX,T2,A3,*X,2Ul? )

42 CCN1INUE

C FROCIC D5» TO GRAPH RtCUCTICN IF RtUO NNO F I NO CORE

CALL CPC GC 10 63 INI*

14/43/36