File: YPLOT.FT of Disk: Disks/MyPDP/m8-2-rka1-rkb1

(Source file text) 

---

	SUBROUTINE YPLOT(XSTEP,XL,Y)

	DIMENSION Y(100)
	DIMENSION FNAME(90)

	WRITE(4,1200)
	READ(4,1300) ITERM	
	DO 4000 I=1,90
4000	CALL CPUT3(FNAME(I),1,32)
	YMAX=0.
	YMIN=0.
	DO 10 I=1,100
	YI=Y(I)
	IF(YI.GT.YMAX) YMAX=YI
	IF(YI.LT.YMIN) YMIN=YI
10	CONTINUE
	WRITE(ITERM,3200) YMIN,YMAX
3200	FORMAT(/1X,' YMIN = ',E12.4,'   YMAX = ',E12.4,//)
	YSCALE=70./(YMAX-YMIN)
	HELP=ABS(YMIN*YSCALE)
	IZERO = IFIX(HELP)+1
	CALL CPUT3(FNAME(IZERO),1,33)
	XX=XL
	DO 30 I=1,100
	IPOINT=IFIX(Y(I)*YSCALE)+IZERO
	IF (IPOINT-60) 80,80,70
80	CALL CPUT3(FNAME(IPOINT),1,42)
	WRITE(ITERM,1000) XX,FNAME
	IF (IPOINT-IZERO) 40,50,40
40	CALL CPUT3(FNAME(IPOINT),1,32)
	GOTO 120
50	CALL CPUT3(FNAME(IPOINT),1,33)
70	WRITE(ITERM,1100)
120	XX=XX+XSTEP

30	CONTINUE

1000	FORMAT(1X,E12.4,'  ',90A1)
1100	FORMAT(1X,'/')
1200	FORMAT(/1X,'AUSGABEGERAET: 3=LPT,4=VISUAL 200',T60,$)
1300	FORMAT(I1)
	RETURN
	END

---