Return to
t_misc.f
CVS log
Up to [HallC] / Analyzer / T20
|
Return to
t_misc.f
CVS log
|
Up to [HallC] / Analyzer / T20
|
|
File: [HallC] / Analyzer / T20 / t_misc.f
(download)
Revision: 1.1, Tue Dec 1 20:57:23 1998 UTC (25 years, 9 months ago) by saw Branch: MAIN CVS Tags: spring03, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, mduality, mar-24-2003, gep_online, gep3, fpi2, emc, e01004, bigcal, baryon, aug-12-2003, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS Initial revision |
subroutine T_MISC(ABORT,err)
*
* $Log: t_misc.f,v $
* Revision 1.1 1998/12/01 20:57:23 saw
* Initial revision
*
*--------------------------------------------------------
IMPLICIT NONE
SAVE
*
character*12 here
parameter (here= '')
*
logical ABORT
character*(*) err
*
include 't20_data_structures.cmn'
include 't20_tracking.cmn'
include 't20_geometry.cmn'
include 't20_track_histid.cmn'
include 't20_bypass_switches.cmn'
include 't20_misc.cmn'
C include 't20_reg_polder_structures.cmn'
C==============================================================================
C THIS ROUTINE TAKES CARE OF THE POLDER "MISCELANEOUS" DETECTOR PACKAGE:
C THE PARTS OF THE E-POLDER EVENTS READ OUTUPSTAIRS INTO THE
C ADCs and TDCs OF ROC (WHAT STEVE SAYS IT IS)
integer*4 ihit,iaddr1,iaddr2
traw_adc_s11 = 0.
traw_adc_s12 = 0.
traw_adc_s21 = 0.
traw_adc_s22 = 0.
traw_adc_veto1 = 0.
traw_adc_veto2 = 0.
traw_adc_tts1l = 0.
traw_adc_tts1r = 0.
traw_adc_tts2l = 0.
traw_adc_tts2r = 0.
c
tfl_mhtdc_dc = 0.
tfl_mhtdc_hms = 0.
tfl_mhtdc_hms_dc = 0.
tfl_mhtdc_big1 = 0.
tfl_mhtdc_ce = 0.
tfl_mhtdc_polder = 0.
tfl_mhtdc_h1m3 = 0.
tfl_mhtdc_h2m3 = 0.
traw_mhtdc_s11 = 0.
traw_mhtdc_s12 = 0.
traw_mhtdc_s21 = 0.
traw_mhtdc_s22 = 0.
traw_mhtdc_s1 = 0.
traw_mhtdc_s2 = 0.
traw_mhtdc_veto = 0.
c
traw_hrtdc_hms = 0.
traw_hrtdc_dc = 0.
traw_hrtdc_hms_dc = 0.
traw_hrtdc_polder = 0.
traw_hrtdc_hms_nb = 0.
traw_hrtdc_pldr_nb = 0.
traw_hrtdc_ce = 0.
do ihit=1,tmisc_tot_hits
iaddr1=tmisc_raw_addr1(ihit) ! iaddr1=1 for ADC, =2 for MHTDCs, and =3 for HRTDC
iaddr2=tmisc_raw_addr2(ihit)
c
if((iaddr1.ne.1).and.(iaddr1.ne.2).and.(iaddr1.ne.3))then
write(6,*)'There is a problem in t_misc: iaddr1 = ',iaddr1
goto 100
endif
C-------------------------------------------------------------------------------------
C***** THE ADC (LECROY 1881M - UPSTAIRS)
if (iaddr1.eq.1) then
if ((iaddr2.lt.1).or.(iaddr2.gt.32)) then
write(6,*)'There is a problem in t_misc: for iaddr1=1, iaddr2=',iaddr2
goto 25
else
C THE START AND VETO DETECTORS
if (iaddr2.eq.1) traw_adc_s11=tmisc_raw_data(ihit)
if (iaddr2.eq.2) traw_adc_s12=tmisc_raw_data(ihit)
if (iaddr2.eq.3) traw_adc_s21=tmisc_raw_data(ihit)
if (iaddr2.eq.4) traw_adc_s22=tmisc_raw_data(ihit)
if (iaddr2.eq.5) traw_adc_veto1=tmisc_raw_data(ihit)
if (iaddr2.eq.6) traw_adc_veto2=tmisc_raw_data(ihit)
if (iaddr2.eq.7) traw_adc_tts1l=tmisc_raw_data(ihit)
if (iaddr2.eq.8) traw_adc_tts1r=tmisc_raw_data(ihit)
if (iaddr2.eq.9) traw_adc_tts2l=tmisc_raw_data(ihit)
if (iaddr2.eq.10) traw_adc_tts2r=tmisc_raw_data(ihit)
C THERE ARE 6 "SPARE" CHANNELS AVAILABLE IN THE ADC (LECROY 1881M),
if ((iaddr2.gt.10).and.(iaddr2.le.32)) then
traw_adc(iaddr2)=tmisc_raw_data(ihit)
endif
endif
endif
C--------------------------------------------------------------------------------------
C***** THE MULTIHIT TDCs (LECROY 1877S - UPSTAIRS AND DOWNSTAIRS)
25 continue
if (iaddr1.eq.2) then
if ((iaddr2.lt.1).or.(iaddr2.gt.32))then
write(6,*)'There is a problem in t_misc: for iaddr1=2, iaddr2=',iaddr2
goto 50
else
if (iaddr2.eq.1) tfl_mhtdc_dc = tmisc_raw_data(ihit)
if (iaddr2.eq.2) tfl_mhtdc_hms = tmisc_raw_data(ihit)
if (iaddr2.eq.3) tfl_mhtdc_hms_dc = tmisc_raw_data(ihit)
if (iaddr2.eq.4) tfl_mhtdc_big1 = tmisc_raw_data(ihit)
if (iaddr2.eq.5) tfl_mhtdc_ce = tmisc_raw_data(ihit)
if (iaddr2.eq.6) tfl_mhtdc_polder = tmisc_raw_data(ihit)
if (iaddr2.eq.7) tfl_mhtdc_h1m3 = tmisc_raw_data(ihit)
if (iaddr2.eq.8) tfl_mhtdc_h2m3 = tmisc_raw_data(ihit)
if (iaddr2.eq.9) traw_mhtdc_s11 = tmisc_raw_data(ihit)
if (iaddr2.eq.10) traw_mhtdc_s12 = tmisc_raw_data(ihit)
if (iaddr2.eq.11) traw_mhtdc_s21 = tmisc_raw_data(ihit)
if (iaddr2.eq.12) traw_mhtdc_s22 = tmisc_raw_data(ihit)
if (iaddr2.eq.13) traw_mhtdc_s1 = tmisc_raw_data(ihit)
if (iaddr2.eq.14) traw_mhtdc_s2 = tmisc_raw_data(ihit)
if (iaddr2.eq.15) traw_mhtdc_veto = tmisc_raw_data(ihit)
endif
endif
C--------------------------------------------------------------------------------------
C***** THE HIGH RESOLUTION TDC (I CHOSE 16 CHANNEL FOR NOW) UPSTAIRS
50 if (iaddr1.eq.3) then
if ((iaddr2.lt.1).or.(iaddr2.gt.8)) then
c write(6,*)'There is a problem in t_misc: for iaddr1=3, iaddr2=',iaddr2
goto 100
endif
if((iaddr2.ne.2).and.(iaddr2.ne.4).and.(iaddr2.ne.6)) then
c write(6,*)'t_misc: in the mhtdc part. iaddr2 = ',iaddr2,ihit ,tmisc_raw_data(ihit)
endif
if(iaddr2.eq.1)traw_hrtdc_hms = tmisc_raw_data(ihit)
if(iaddr2.eq.2)traw_hrtdc_dc = tmisc_raw_data(ihit)
if(iaddr2.eq.3)traw_hrtdc_hms_dc = tmisc_raw_data(ihit)
if(iaddr2.eq.4)traw_hrtdc_polder = tmisc_raw_data(ihit)
if(iaddr2.eq.5)traw_hrtdc_hms_nb = tmisc_raw_data(ihit)
if(iaddr2.eq.6)traw_hrtdc_pldr_nb = tmisc_raw_data(ihit)
if(iaddr2.eq.7)traw_hrtdc_ce = tmisc_raw_data(ihit)
endif
C-------------------------------------------------------------------------------------
100 continue
enddo
c
C***** now do a few combinations of ADCs and TDCs
traw_adc_s1sum = traw_adc_s11 + traw_adc_s12
traw_adc_s2sum = traw_adc_s21 + traw_adc_s22
traw_adc_s1s2sum = traw_adc_s2sum + traw_adc_s1sum
traw_adc_vetosum = traw_adc_veto1 + traw_adc_veto2
c
RETURN
END
*********
* Local Variables:
* mode: fortran
* fortran-if-indent: 2
* fortran-do-indent: 2
* End:
| Analyzer/Replay: Mark Jones, Documents: Stephen Wood |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |