SUBROUTINE CALPLT(X,Y,IPEN)
C
C	CALL CALPLT(X,Y,IPEN) -- This subroutine will move the
C	pen to location (X,Y) scale inches from the relocatable 
C	origin.  If IPEN=2, the pen is lowered before the move;
C	if IPEN=3, the pen is raised.  If IPEN is negative, the pen
C	is moved according to the absolute value of IPEN and the
C	relocatable origin is set at that location.  IPEN=999 homes
C	the pen, sets the default character size, disables the plotter
C	and closes the plot file to free the logical unit number (ILun).
C
	COMMON /PLTR/ ILun, IDev, IsTerm, IMode, IXMax, IYMax,
	1  Cnvrsn, CMag, CnvMag, IX0, IY0, KSetNo, IFancy, IBfDv3,
	1  CSize, DeltaH, DeltaV, Upsiln, CosUp, SinUp, WidAdj
C
	IF( IPEN .NE. 999 ) GO TO 100
	IF( ILUN .EQ. 0 ) RETURN ! NO PLOTTING DONE
	CMag = 1.
	CALL SIZEUP(.09,0.)
	CALL HOME
	IF( MOD( IFancy, 16 )/8 .EQ. 0 ) CALL CLOSE(ILun)
	ILun = 0
	RETURN
C
100	IX = X*CnvMag+IX0
	IY = Y*CnvMag+IY0
	CALL ABSPLT(IX,IY,IPEN)
	RETURN
	END