Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50446/iphysy.f4
There are no other files named iphysy.f4 in the archive.
	INTEGER FUNCTION IPHYSY(YPOS)
C************************************************************
C
C  THIS FUNCTION RETURNS THE PHYSICAL POSITION
C  IN RASTER UNITS, OF A SPECIFIED USER Y 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)
	IPHYSY = SCALE * (YPOS - YMIN) + .5
	RETURN
	END