Directory of image this file is from
This file as a plain text file

C TEILPROGRAMM DIW VON HDGRM
C SUMMENHAEUFIGKEIT IM WAHRSCHEINLICHKITSNETZ
C FORTRAN II / OPTION (I)
C SR :  ERASE.SB / ALPHA.SB / TPLOT.SB / FIGUR.FT
C SR : VEKTOR.FT /  WLIN.FT /  WLOG.FT / STERN.FT / LQUAD.FT
C SR :  DRECK.FT / PUNKT.FT / KREIS.FT
C DA :   UGFI.DA /  WLIN.DA /  WLOG.DA / TEM.DA
C CH : MRVA.SV
	DIMENSION UGFI(50,10),EF(5)
	CALL IOPEN('SYS','UGFI')
	READ(4,100)((UGFI(I,J),J=1,10),I=1,50)
100	FORMAT(A6)
	CALL IOPEN('P1','TEM')
	READ(4,101)LILO,KL,NV,IDEKA
101	FORMAT(A2)
	READ(4,100)DIM,GU,GO,BEZ,(EF(I),I=1,NV)
	CALL ERASE
	GOTO(2,3),LILO
2	FKT=(GO-GU)/10.
	GOTO 4
3	FKT=GU
4	WRITE(1,102)(EF(I),I=1,NV)
102	FORMAT('PARMTR : ',5(A6,' =     '))
	CALL TPLOT(0,0,767)
	CALL ALPHA
	WRITE(1,103)BEZ,FKT,DIM
103	FORMAT(/' BLATT : ',A6,7X,'SKALENFAKTOR : ',E10.2,4X,
	1'DIMENSION : ',A6)
	IX=260
	DO 6 I=1,NV
	CALL FIGUR(I,IX,775)
6	IX=IX+183
	CALL ALPHA
	DO 30 J=1,NV
	MM=-1
	IY1=50
	IX1=80
	DO 25 IK=1,KL
	READ(4,100)PROZ
	IX=80.+(900./FLOAT(KL))*(FLOAT(IK)-.5)
	IF(PROZ-.1)47,47,46
46	IF(PROZ-99.9)49,49,48
47	IY=50
	GOTO 61
48	IY=725
	GOTO 61
49	IF(PROZ-50.)60,50,55
50	IY=388
	GOTO 61
55	PROZ=PROZ-48.99
	F=1.
56	I1=PROZ
	I2=10.*(PROZ-FLOAT(I1))+1.11
	FIY=UGFI(I1,I2)
	IY=387.5+F*(FIY*337.5)/3.09031
	GOTO 61
60	PROZ=51.01-PROZ
	F=-1.
	GOTO 56
61	IX2=IX1
	IY2=IY1
	IX1=IX
	IY1=IY
	IF(PROZ-0.1)25,25,11
11	IF(PROZ-99.9)12,20,20
12	CALL FIGUR(J,IX1,IY1)
	IF(MM)13,15,15
13	IF(IK-1)17,17,14
14	CALL FIGUR(J,IX2,IY2)
15	CALL VEKTOR(IX1,IY1,IX2,IY2)
17	MM=MM+1
	GOTO 25
20	CALL FIGUR(J,IX1,IY1)
	CALL FIGUR(J,IX2,IY2)
	CALL VEKTOR(IX1,IY1,IX2,IY2)
	IK1=IK+1
	READ(4,100)(PROZ,IK=IK1,KL)
	GOTO 30
25	CONTINUE
30	CONTINUE
	GOTO(31,32),LILO
31	CALL WLIN
	CALL TPLOT(0,65,25)
	CALL ALPHA
	WRITE(1,110)GU,GO
110	FORMAT(' SKALENANFANG : 'E10.2,19X'SKALENENDE : 'E10.2)
	GOTO 35
32	CALL WLOG(IDEKA)
35	PAUSE
	CALL ERASE
	CALL CHAIN('MRVA')
	END