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