Commit | Line | Data |
---|---|---|

b9d0a01d | 1 | #ifndef FSTARS_H |

2 | #define FSTARS_H 1 | |

3 | ||

4 | #include "cfortran.h" | |

5 | #include "Rtypes.h" | |

6 | ||

7 | #include "Fdimpar.h" | |

8 | ||

9 | extern "C" { | |

10 | //*$ create stars.add | |

11 | //*copy stars | |

12 | //* | |

13 | //*=== stars ============================================================* | |

14 | //* | |

15 | //*----------------------------------------------------------------------* | |

16 | //* * | |

17 | //* stars common for fluka: * | |

18 | //* * | |

19 | //* version for fluka90/99/... of the original one of fluka86 * | |

20 | //* * | |

21 | //* * | |

22 | //* created on 15 may 1990 by alfredo ferrari & paola sala * | |

23 | //* infn - milan * | |

24 | //* * | |

25 | //* last change on 07-oct-99 by alfredo ferrari * | |

26 | //* * | |

27 | //* * | |

28 | //* description of the common variable(s): * | |

29 | //* * | |

30 | //* ntstar = total number of stars generated (modulo 1000000000) * | |

31 | //* neulow = total number of low energy neutron interactions * | |

32 | //* (modulo 1000000000) * | |

33 | //* numdec = total number of decays (modulo 1000000000) * | |

34 | //* mtstar = total number of stars generated / 100000000 * | |

35 | //* meulow = total number of low energy neutron interactions * | |

36 | //* / 1000000000 * | |

37 | //* mumdec = total number of decays (modulo 1000000000) * | |

38 | //* wstars = total weight of the stars generated * | |

39 | //* wneulw = total weight of the low energy neutron interactions * | |

40 | //* westar = weight of the stars generated by * | |

41 | //* different particle types * | |

42 | //* westop = total weight of the particles stopped * | |

43 | //* wstop = weight of particles of different types stopped * | |

44 | //* weisec = total weight of the secondaries created * | |

45 | //* weifis = total weight of high energy fissions * | |

46 | //* weipri = total weight of the primaries handled * | |

47 | //* edi = deposited energy * | |

48 | //* edi(1) = by ionisation * | |

49 | //* edi(2) = by pi-zeros and/or em cascade * | |

50 | //* edi(3) = by nuclear excitation (or nuclear recoil * | |

51 | //* and heavies if the evaporation module is * | |

52 | //* activated) * | |

53 | //* edi(4) = by stopped particles * | |

54 | //* edi(5) = energy leaving the system * | |

55 | //* edi(6) = energy carried by discarded particles * | |

56 | //* edi(7) = by residual excitation energy (only if the * | |

57 | //* evaporation module is activated) * | |

58 | //* edi(8) = by low energy neutrons (kerma due to low * | |

59 | //* energy neutrons transport is in effect) * | |

60 | //* edi(9) = energy carried by time killed particles * | |

61 | //* edi(10)= energy wasted for nuclear binding energy * | |

62 | //* effects for e > 50 mev * | |

63 | //* edi(11)= energy wasted for nuclear binding energy * | |

64 | //* effects for low energy neutrons * | |

65 | //* wdec = weight of the particles decayed * | |

66 | //* wdau = weight of the decay-products * | |

67 | //* wtkll = weight of the time-killed particles * | |

68 | //* wtdec = total weight of the particles decayed * | |

69 | //* wtdau = total weight of the decay products * | |

70 | //* wttkll = total weight of the time killed particles * | |

71 | //* wlwnsc = weight of the low energy neutrons interaction secon- * | |

72 | //* daries * | |

73 | //* wdecct = weight of the particles decayed for which a c tau * | |

74 | //* scoring is done * | |

75 | //* deccts = decay c tau scoring * | |

76 | //*----------------------------------------------------------------------* | |

77 | //* | |

78 | ||

79 | typedef struct { | |

6177a6a6 | 80 | Double_t westar[2][nallwp+7]; |

81 | Double_t westop[2][nallwp+7]; | |

82 | Double_t wedaug[2][nallwp+7]; | |

83 | Double_t wekill[2][nallwp+7]; | |

84 | Double_t wedecy[2][nallwp+7]; | |

85 | Double_t weifis[2][nallwp+7]; | |

86 | Double_t deccts[2][nallwp+7]; | |

87 | Double_t wdecct[2][nallwp+7]; | |

88 | Double_t weprdc[2][nallwp+7]; | |

89 | Double_t wlwnsc[2][4]; | |

90 | Double_t wophsc[2][4]; | |

91 | Double_t edpsco[2][11]; | |

cd4c194d | 92 | Double_t woptph; |

b9d0a01d | 93 | Double_t wneulw; |

6177a6a6 | 94 | Double_t weipri; |

b9d0a01d | 95 | Int_t numdec; |

96 | Int_t ntstar; | |

97 | Int_t neulow; | |

cd4c194d | 98 | Int_t numoph; |

b9d0a01d | 99 | Int_t mumdec; |

100 | Int_t mtstar; | |

101 | Int_t meulow; | |

cd4c194d | 102 | Int_t mumoph; |

6177a6a6 | 103 | } sumcouCommon; |

104 | #define SUMCOU COMMON_BLOCK(SUMCOU,sumcou) | |

105 | COMMON_BLOCK_DEF(sumcouCommon,SUMCOU); | |

b9d0a01d | 106 | } |

107 | ||

108 | #endif |