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

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

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

    	XFAC = XSCL
    	YFAC = YSCL

999	RETURN
    	END

