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**********************************************************************
C
	INCLUDE '[102,2]INP.COM/NOLIST'
	INCLUDE '[102,2]ERRBLK.COM/NOLIST'
C
     	INTEGER*2 KODE, IOVLP, IPK, NPK, NBG, IOPTIM, ILOC
     	REAL*4 ROONMU, MUREF
	COMMON /LINE/BANG,PANG,EANG,DANG,TIMLIM,FIXERR,
     * KODE,IOVLP,IPK,NPK,NBG,FREL,STDREL,STD,SIGSTD,WTPRCT,
     * ROONMU,WTSPIK,PKTIME,BKGTIM,IOPTIM,ILOC,CONSTD,MUREF,PANG1
C
	CHARACTER NAM*4, NAMEOV*4, ELMTPH*2, JKL*6, JKLOV*6
	COMMON /LINEC/ NAM, JKL
	COMMON /OVLAP/ FRELOV(2),SRELOV(2),WTPCPH(8)
	COMMON /OVLAPC/ NAMEOV(2),JKLOV(2),ELMTPH(8)
	COMMON/DATA/PEAK,VPEAK,AREA,VAREA,XBKG,VBKG
C
	REAL*4		THETA,PANG,RATIO,PEAK,AREA,S2,VPEAK,VAREA,
	1		 BANG,EANG,DANG,TIMLIM,FIXERR,FREL,STDREL,
	2		 STD,SIGSTD,WTPRCT,WTSPIK,PKTIME,BKGTIM,
	3		 CONSTD,PANG1,FRELOV,SRELOV,WTPCPH,XBKG,
	4		 VBKG
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