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

C	AUSGABEPROGRAMM ZUR ERMITTLUNG DISKRETER WIDERSTANDSWERTE
C	RB FUER VORGEGEBENE VERTEILUNGSFUNKTIONSWERTE GROSSPHI(RB)
C	BATCHVERSION;  (NAEHERES SIEHE PRINTOUT)
C	NAME: O U T R B

	COMMON WERT,IAR1,IAR2
	DIMENSION WERT(100),IAR1(100),IAR2(100)

	IK1=0
5	IK1=IK1+1
	IF (IK1-27) 30,30,1700
C	ERSTE ZEILE DER DATEI BATCHF IST EINE LEERZEILE
30	CALL IOPEN('SYS','BATCHF')
	DO 50 IK2=1,IK1
	READ(4,40) ILAUF
40	FORMAT(I0)
50	CONTINUE

	READ(4,60) DATEI
60	FORMAT(A6)
	CALL IOPEN('SYS',DATEI)

	READ(4,10) M1,M2
10	FORMAT(A1,A2)

	READ(4,20) RVARG,RVH
20	FORMAT(E15.6,F15.10)

	J=1
	I=-9
	N=1

	RTL1=FLOAT(9)*(10.0**(-1))
	DO 1000 K=1,500
	READ(4,20) RARG,RH
100	IF (J-10) 300,200,300
200	I=I+1
	J=1
300	RL=FLOAT(J)*(10.0**I)

	IF (RL-RTL1) 350,350,1000
350	IF (RH-RL) 400,500,600
400	RVARG=RARG
	RVH=RH
	GOTO 1000

500	WERT(N)=RARG
	GOTO 700

600	RT1=(RL-RVH)/(RH-RVH)
	RDIFF=RARG-RVARG
	WERT(N)=RT1*RDIFF+RVARG

700	IAR1(N)=J
	IAR2(N)=I
	N=N+1
	J=J+1
	GOTO 100
1000	CONTINUE

	IAR1(N)=J
	IAR2(N)=I
	WERT(N)=RARG

	J=1
	I=1
	IBLATT=1
	CALL OOPEN('DCWR',0)
1010	WRITE(4,1020) M1,M2,IBLATT
1020	FORMAT(10X'F A L L :   RB = RA'A1' + RK + RUE'A2,15X
	1'BLATT'I3//)
	WRITE(4,1040)
1040	FORMAT(10X,'GROSS PHI(RB/KOHM)',10X,'RB/KOHM'/)

	IZEIL=5
1050	DO 1200 K=1,9
	WRITE(4,1100) IAR1(I),IAR2(I),WERT(I)
1100	FORMAT(I15'*10**',I2,F25.10)
	I=I+1
	IZEIL=IZEIL+1
	IF (I-N) 1200,1200,1350
1200	CONTINUE

	WRITE(4,1300)
1300	FORMAT(/)
	IZEIL=IZEIL+2

	IF (J-5) 1600,1350,1600
1350	IZEIL=66-IZEIL
	DO 1500 K=1,IZEIL
	WRITE(4,1400) IZEIL
1400	FORMAT(I0)
1500	CONTINUE
	IF (IBLATT-2) 1520,1510,1520
1510	CALL OCLOSE
	GOTO 5
1520	J=1
	IBLATT=IBLATT+1
	GOTO 1010
1600	J=J+1
	GOTO 1050

1700	CALL OCLOSE
	CALL EXIT

	END