PDP-10 Archive: decus/20-0125/usery.for from decuslib20-04

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0125/usery.for

There is 1 other file named usery.for in the archive. Click here to see a list.

	FUNCTION USERY(IY)
C************************************************************
C
C  THIS ROUTINE RETURNS THE USER Y POSITION
C  OF A SPECIFIED PHYSICAL POSITION.
C
C  POSSIBLE ERRORS:
C	NONE
C
C  ROUTINES CALLED:
C	NONE
C
C************************************************************
	INTEGER BEAMX, BEAMY
	COMMON /SCLBLK/ XMIN, YMIN, XMAX, YMAX, BEAMX, BEAMY

	SCALE = 767. / (YMAX - YMIN)
	USERY = FLOAT(IY) / SCALE + YMIN
	RETURN
	END