    	SUBROUTINE IFROTA( ANGX, ANGY )
C
C  PROGRAMMER: R.S. ZHOU	ALFRED UNIVERISTY, DEC-1985
C
C  	THIS ROUTINE SETS THE REFERENCE ROTATION OF X,Y AXES.
C
C  	ANGX ---- ROTATION ANGLE IN DEGREES OF X-AXIS FROM HORIZONTAL.
C  	ANGY ---- ROTATION ANGLE IN DEGREES OF Y-AXIS FROM VERTICAL.
C
    	INCLUDE 'IMAGEM.CBS'

    	XANG = AMOD( ANGX, 360.0 )
    	YANG = AMOD( ANGY, 360.0 )
    	XCTH = COS( XANG*D2R )
    	XSTH = SIN( XANG*D2R )
    	YCTH = COS( YANG*D2R )
    	YSTH = SIN( YANG*D2R )

999	RETURN
    	END

     	SUBROUTINE IFROTA_NOW( ANGX, ANGY )
C
C	THIS ROUITNE REPORTS CURRENT GRAPH ROTATIONS IN ANGX,ANGY
C
     	INCLUDE 'IMAGEM.CBS'

     	ANGX = XANG
     	ANGY = YANG

999	RETURN
     	END

