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

(Source file text) 

---

	REAL FUNCTION INIT(DU)
	INTEGER TICKS
	CALL ASK(1,TICKS,DU,DU,DU,'# OF TICKS&')
	SIZE=8./(TICKS+2.)
	CALL PLOTS(20./(SIZE*1024.),0)
	INIT=SIZE
	WRITE(4,100) SIZE
100	FORMAT(1H ,'PLOT UNITS=',F5.2,' CM.')
	END

---