s/r RETRIGGER

 The routines are in 

 ~maggim/alpha/charg/cha/chaminou 

 retrigger.f
 ene_tot.f
 ene_seg.f

 In QUEVNT one should call 

 CALL RETRIGGER(I_TRI_DEF,I_TRI_DIR,I_TRI_EXT,I_MOD_DIR,I_MOD_EXT) 

 where all the argumnts are output.

 I_TRI_DEF is the default trigger mask where all the trigger bits
           of the not used trigger are set to 0
 I_TRI_DIR is the trigger mask with the offline cuts on Wire energies
 I_TRI_EXT is trigger mask with a different method, i.e. by extrapoleting
           the track according to their curvature, but it is not used.
 I_MOD_DIR is the module where the cut is applied in the SNG_C_EM
 I_MOD_EXT is the module to be considered for I_TRI_EXT (not used)