SUBROUTINE PSTN(XV,YV,XI,YI)
C
C This subroutine calculates the position of a datum point in
C inches, (XI,YI) given the coordinate values of the datum
C point, (XV,YV).  The necessary Scaling parameters are
C properly set by calls to SUBROUTINE AXES.
C
	COMMON /PSTN/ XZero, XScale, LogX,
	1  YZero, YScale, LogY, YMin
	LOGICAL LogX,LogY
C
	IF( LogX ) GO TO 100
	XI = XScale*(XV-XZero)
	GO TO 200
100	XI = XScale*ALOG10(XV/XZero)
200	IF( LogY ) GO TO 300
	YI = YScale*(YV-YZero)
	RETURN
300	YI = YScale*ALOG10(YV/YZero)
	RETURN
	END