1 saw   1.1       subroutine g_trans_misc(abort,errmsg)
 2           *-------------------------------------------------------------------
 3           * author: John Arrington
 4           * created: 1/16/96
 5           *
 6           * Modified for t20 on 1997/0321 by Glenn Collins
 7           *
 8           * g_trans_misc fills the gen_decoded_misc common block
 9           *
10           * $Log: g_trans_misc.f,v $
11           * Revision 1.1  1996/01/22 15:14:10  saw
12           * Initial revision
13           *
14           *--------------------------------------------------------
15           
16                 implicit none
17           
18                 include 'gen_data_structures.cmn'
19                 include 'gen_misc.cmn'
20                 logical abort
21                 character*1024 errmsg
22 saw   1.1       character*20 here
23                 parameter (here = 'g_trans_misc')
24           
25                 integer*4 ihit
26           
27                 save
28           
29                 abort = .false.
30                 errmsg = ' '
31           
32                 do ihit = 1 , gmax_misc_hits
33                   gmisc_dec_data(ihit,1) = 0      ! Clear HRTDCs
34                   gmisc_dec_data(ihit,2) = -1     ! Clear ADCs
35           **later        gmisc_dec_data(ihit,3) = 0      ! Clear MHTDCs
36                 enddo
37           C
38           C*** Note for clarity, the first number in the gmisc_dec_data array is the
39           C    "signal" number (addr2), while the second is the LeCroy unit type (addr1)
40           C        For GMISC events, the module types have the following addr1
41           C           1872A HRTDC: 1
42           C           1881M ADC:   2
43 saw   1.1 C           1877  MHTDC: 3
44           C
45                 do ihit = 1 , gmisc_tot_hits
46                    gmisc_dec_data(gmisc_raw_addr2(ihit),gmisc_raw_addr1(ihit)) =
47                $       gmisc_raw_data(ihit)
48           C*** Note:  Possibly want to fill user filled histograms here in the loop. for mh-tdc
49                 enddo
50           c
51           c         c_hrtdc_s22 =  gmisc_dec_data(10,1)
52           c         c_hrtdc_tts1 = gmisc_dec_data(64,1)
53           c         c_hrtdc_hms = gmisc_dec_data(1,1)
54           **later         c_mhtdc_s22 = gmisc_dec_data(1,3)
55           **later         c_mhtdc_tts1 = gmisc_dec_data(2,3)
56           **later         c_mhtdc_hms = gmisc_dec_data(16,3)
57           
58                 return
59                 end