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

3a625972 | 1 | #ifndef OPPHST |

2 | #define OPPHST_H 1 | |

3 | ||

4 | #include "Rtypes.h" | |

5 | #include "cfortran.h" | |

6 | #include "Fdimpar.h" | |

7 | ||

8 | extern "C" { | |

9 | ||

10 | //*$ CREATE OPPHST.ADD | |

11 | //*COPY OPPHST | |

12 | //* | |

13 | //*=== Opphst ===========================================================//* | |

14 | //* | |

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

16 | //* //* | |

17 | //* OPtical PHoton STack: //* | |

18 | //* //* | |

19 | //* Created on 19 september 1997 by Alfredo Ferrari & Paola Sala //* | |

20 | //* Infn - Milan //* | |

21 | //* //* | |

22 | //* Last change on 13-oct-98 by Alfredo Ferrari //* | |

23 | //* //* | |

24 | //* wtopph = weight of the photon //* | |

25 | //* poptph = laboratory momentum of the photon in GeV/c //* | |

26 | //* xoptph = x-coordinate of the photon //* | |

27 | //* yoptph = y-coordinate of the photon //* | |

28 | //* zoptph = z-coordinate of the photon //* | |

29 | //* txopph = direction cosine of the photon //* | |

30 | //* with respect to x-axis //* | |

31 | //* tyopph = direction cosine of the photon //* | |

32 | //* with respect to y-axis //* | |

33 | //* tzopph = direction cosine of the photon //* | |

34 | //* with respect to z-axis //* | |

35 | //* txpopp = direction cosine of the photon polarization //* | |

36 | //* typopp = direction cosine of the photon polarization //* | |

37 | //* tzpopp = direction cosine of the photon polarization //* | |

38 | //* donear = distance to the nearest boundary //* | |

39 | //* agopph = age of the photon (seconds) //* | |

40 | //* cmpopp = total path length of the photon (cm) //* | |

41 | //* loopph = generation of the photon //* | |

42 | //* louopp = user flag //* | |

43 | //* nregop = number of the region of the photon //* | |

44 | //* nlatop = number of the lattice cell of the photon //* | |

45 | //* tpropp = kinetic energy of parent particle of the photon //* | |

46 | //* apropp = age of the parent particle of the photon (seconds) //* | |

47 | //* ipropp = id (paprop) of the parent particle of the photon //* | |

48 | //* lpropp = generation of the parent particle of the photon //* | |

49 | //* npropp = # of the primary track which generated the photon //* | |

50 | //* (not used for the moment) //* | |

51 | //* lstopp = stack pointer //* | |

52 | //* lmxopp = highest value of the stack pointer encountered //* | |

53 | //* in the run //* | |

54 | //* //* | |

55 | //*----------------------------------------------------------------------//* | |

56 | //* | |

57 | typedef struct { | |

d4396856 | 58 | Double_t wtopph [mostck]; |

59 | Double_t poptph [mostck]; | |

60 | Double_t xoptph [mostck]; | |

61 | Double_t yoptph [mostck]; | |

62 | Double_t zoptph [mostck]; | |

63 | Double_t txopph [mostck]; | |

64 | Double_t tyopph [mostck]; | |

65 | Double_t tzopph [mostck]; | |

66 | Double_t txpopp [mostck]; | |

67 | Double_t typopp [mostck]; | |

68 | Double_t tzpopp [mostck]; | |

69 | Double_t donear [mostck]; | |

70 | Double_t agopph [mostck]; | |

71 | Double_t tpropp [mostck]; | |

72 | Double_t apropp [mostck]; | |

73 | Double_t cmpopp [mostck]; | |

91f9cd5a | 74 | Double_t sparok [mostck][mkbmx1]; |

75 | Int_t ispork [mostck][mkbmx2]; | |

d4396856 | 76 | Int_t loopph [mostck]; |

77 | Int_t louopp [mostck]; | |

78 | Int_t nregop [mostck]; | |

79 | Int_t nlatop [mostck]; | |

80 | Int_t ipropp [mostck]; | |

81 | Int_t lpropp [mostck]; | |

82 | Int_t npropp [mostck]; | |

83 | Int_t lstopp; | |

84 | Int_t lmxopp; | |

3a625972 | 85 | } opphstCommon; |

86 | ||

87 | #define OPPHST COMMON_BLOCK(OPPHST,opphst) | |

88 | COMMON_BLOCK_DEF(opphstCommon, OPPHST); | |

89 | ||

90 | } | |

91 | #endif | |

92 |