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