File: PLOFUN.FT of Tape: Various/ETH/f2

(Source file text) 

---

	SUBROUTINE PLOFUN(X1,X2,X3,Y1,Y2,Y3)
	DIMENSION YAR(260)
	X0=X1
	DY=Y3/2.5
	IF (DY.GT.0.001) GO TO 3
	DY=1.
	Y1=0.
	Y2=0.
3	CONTINUE
	DO 5 J=1,256
	READ(6,100) YAR(J)
100	FORMAT(F12.4)
	YAR(J)=YAR(J)/100.
5	CONTINUE
30	IPEN=3
	DO 10 J=1,256
	X=X0+J*2.*ABS(X0)/256.
	Y=(YAR(J)-Y2)/DY+Y1
	CALL XYPLOT(X,Y,IPEN)
	IPEN=2
10	CONTINUE
	CALL XYPLOT(0.,0.,3)
	END

---