1 !
this is to treat the stange
code generated in Lund Fritiof.
2 !
If you find that you can
get reliable events by discarding
3 ! events with such strange
code, then you may define
4 ! the machine definition here.
6 !
If you want
to discard the strange
code events but
8 #undef DEBUG_STRANGECODE
11 #define DEBUG_STRANGECODE 15 #define DEBUG_STRANGECODE 17 !
if you want discard the strage
code events without
18 ! any
message, define below.
If DEBUG_STRANGECODE
is 19 !
defined, you should not give the below.
20 #undef DISCARD_STRANGECODE
22 #define DISCARD_STRANGECODE 25 !
if none of above two
is defined, messages will be issued and
26 ! execution will be halted.
28 ! you should not touch below.
29 ! ----------------------------------------
31 #define NOTIFY_STRANGECODE 33 #ifdef DISCARD_STRANGECODE 34 #undef NOTIFY_STRANGECODE 37 #undef USE_STRANGEFLAG 38 #ifdef DEBUG_STRANGECODE 39 #define USE_STRANGEFLAG 42 #ifdef DISCARD_STRANGECODE 43 #define USE_STRANGEFLAG ! this is to treat the stange code generated in Lund Fritiof ! If you find that you can get reliable events by discarding ! events with such strange code
! this is to treat the stange code generated in Lund Fritiof ! If you find that you can get reliable events by discarding ! events with such strange then you may define ! the machine definition here ! If you want to discard the strange code events but ! want to be define below ! if you want discard the strage code events without ! any message
integer Charge2heavyG charge of heavy rightarrow heavy group index conversion array integer HeavyG2massN heavy group index rightarrow mass number conversion array integer HeavyG2charge heavy group index rightarrow charge of heavy conversion array integer HeavyG2code heavy group index rightarrow particle code conversion array integer Code2massN particle code rightarrow mass number conversion array integer Code2heavyG particle code rightarrow heavy group index conversion array real *FragmentTbl the number of interacting nucleons among a projectile heavy nucleus is ! determined as the number of first collision of each interacting nucleon inside ! the nucleus If
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer to
! this is to treat the stange code generated in Lund Fritiof ! If you find that you can get reliable events by discarding ! events with such strange then you may define ! the machine definition here ! If you want to discard the strange code events but ! want to be define below ! if you want discard the strage code events without ! any define below If DEBUG_STRANGECODE is you should not give the below ! if none of above two is defined
! this is to treat the stange code generated in Lund Fritiof ! If you find that you can get reliable events by discarding ! events with such strange then you may define ! the machine definition here ! If you want to discard the strange code events but ! want to be notified
block data cblkIncident data *Za1ry is