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