*********************************************************************** SUBROUTINE GUDIGI * * call xxxxdigi routines for various detector components * * last modified on: 25/11/04 by R. Holzmann *********************************************************************** #include "user.inc" #include "geantdef.h" integer i #ifdef GEANT_REF if(ireft.gt.0)then call refdigi ! called for generating reference else #endif if(iroot.eq.0) call hcdir('//PAWC',' ') if(ikin.ge.1) then ! kinematics first if(iroot.eq.0) call hcdir('//KINETUP',' ') call kinedigi endif if(irich.ge.1) then ! RICH if(iroot.eq.0) call hcdir('//RICHTUP',' ') call richdigi endif if (imdc.ge.1) then ! MDCs if(iroot.eq.0) call hcdir('//MDCTUP',' ') endif if (imdc.ge.1 .or. imacc.eq.1) then ! MDCs or acceptance is computed call mdcdigi endif if(itof.ge.1) then ! TOF wall if(iroot.eq.0) call hcdir('//TOFTUP',' ') call tofdigi endif if(ishow.ge.1) then ! SHOWER detetector if(iroot.eq.0) call hcdir('//SHOWTUP',' ') call showdigi endif if(iwall.ge.1) then ! forward wall call walldigi endif if(irpc.ge.1) then ! rpc wall call rpcdigi endif if(ikin.ge.1) then ! finalize kinematics call finalizekine(iseco(2)) endif if(iroot.eq.0) then call hcdir('//PAWC',' ') else i = 0 #ifdef WITHROOT if(itup.eq.1) call filltree #endif endif #ifdef GEANT_REF end if #endif return end