    	SUBROUTINE IFSCAL( XFAC, YFAC )
C
C	THIS ROUTINE SETS THE OVERALL PLOT SCALE FACTORS.
C
    	INCLUDE 'TEKLIB.CBS'

    	IF( XFAC.GT.0.0 ) XSCL = XFAC
    	IF( YFAC.GT.0.0 ) YSCL = YFAC

     	IF( IDW.NE.0 ) THEN
     	    IF( NPPS.GT.0 ) CALL IFPLOT_DUMP
     	    WRITE(IDF,1000) XSCL, YSCL
     	ENDIF
1000	FORMAT('SCAL:',2F8.3)

999	RETURN
    	END

    	SUBROUTINE IFSCAL_NOW( XFAC, YFAC )
C
C   THIS ROUTINE REPORTS THE CURRENT SCALE FACTORS IN XFAC,YFAC.
C
    	INCLUDE 'TEKLIB.CBS'

    	XFAC = XSCL
    	YFAC = YSCL

999	RETURN
    	END

