C***********************************************************************
C
	SUBROUTINE IFANGL(DEGR, STEPS)
C
      INCLUDE 'COMMON.FTN'
CCC	STEPS = AINT( DEGR*STPSIZ + 0.5)
	STEPS = DEGR
	RETURN
	END
