001 ################################################################
002 # tcl and decay file h-tt.val to decay H0->tau tau - using ISAJET
003 # Contributed by Elena Vataga
004 # Modified by T.Moulik to set CDFPVLI
005 ################################################################
006 set env(CDFPVLI) $env(CDFSOFT2_DIR)/tauola_i/test/h-tt.val
007 path enable AllPath
008 mod disable HepgFilter
009 mod disable herwig
010 mod disable Pythia
011 mod disable Bgenerator
012 mod disable FAKE_EVENT
013
014 module input GenInputManager
015 talk GenInputManager
016 report set 100
017 exit
018
019 mod enable Isajet
020 talk Isajet
021 # help
022 verbose set t
023 exit
024
025 mod enable TauolaModule
026 mod talk TauolaModule
027 # next 4 lines if want some printing from tauola
028 Display_max_taudecays set 4
029 Display_tauola_output set 3
030 decay_mode_tau+ set 2
031 decay_mode_tau- set 2
032 show
033 exit
034
035 module output FileOutput
036 exec rm -f tauola_isajet_higgs.sim
037 talk FileOutput
038 output create test_stream tauola_isajet_higgs.sim
039 output path test_stream AllPath
040 output keepList test_stream LRIH_StorableBank EVCL_StorableBank HEPG_StorableBank
041 exit
042
043 begin -nev 100
044
045 show timer
046
047 exit
048
Send problems or questions to cdfcode@fnal.gov