	SUBROUTINE TCSLIT
C**********************************************************************
C
C  SUBROUTINE TO CORRECT MEASURED INTENSITIES FOR EFFECTS OF THETA
C  COMPENSATING SLITS SUCH THAT THE CORRECTED INTENSITIES CORRESPOND
C  TO THOSE FROM A CONSTANT VOLUME OF MATERIAL
C
C  CURRENTLY THE ROUTINE USES ONLY A FIRST ORDER CORRECTION-----
C  THAT IS VOLUME(THETA COMPENSATING) GOES AS SIN(THETA)
C
C**********************************************************************
	COMMON/DATA/ PEAK,VPEAK,AREA,VAREA
	COMMON/RECRD7/BANG,PANG,EANG,DANG,RATE,MVCNT,TIMLIM,FIXERR,
     * LIMCNT,KODE,IOVLP,IPK,NPK,NBG,FREL,STDREL,STD,SIGSTD,
     * WTPRCT,PKTIME,BKGTIM,IOPTIM,ILOC,CONSTD
	COMMON /RECR7C/ NAM,JKL
C
C-----CALCULATE SINE OF THETA
C
	THETA=PANG/2.0
C
C  CORRECT ALL INTENSITIES TO VALUES WHICH WOULD HAVE
C  BEEN MEASURED WITH A FIXED ONE DEGREE DIVERGENCE SLIT
C  SINCE THETA COMPENSATING SLIT INTENSITIES ARE EQUAL
C  TO ONE DEGREE SLIT INTENSITIES AT 30 DEGREES WE
C  MULTIPY BY SIN(30)/SIN(THETA)
C
	RATIO = 0.5 / SIN(THETA/57.3)
C
C-----CONVERT PEAK AND INTEGRATED AREAS
C
	PEAK = PEAK * RATIO
	AREA = AREA * RATIO
C
C-----CONVERT VARIANCE OF PEAK AND AREA
C
	S2 = RATIO*RATIO
	VPEAK=VPEAK/RATIO
	VAREA=VAREA/RATIO
	RETURN
	END
