d30b8254 |
1 | *$ CREATE OPPHST.ADD |

2 | *COPY OPPHST |

3 | * |

4 | *=== Opphst ===========================================================* |

5 | * |

6 | *----------------------------------------------------------------------* |

7 | * * |

8 | * OPtical PHoton STack: * |

9 | * * |

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

11 | * Infn - Milan * |

12 | * * |

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

14 | * * |

15 | * wtopph = weight of the photon * |

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

17 | * xoptph = x-coordinate of the photon * |

18 | * yoptph = y-coordinate of the photon * |

19 | * zoptph = z-coordinate of the photon * |

20 | * txopph = direction cosine of the photon * |

21 | * with respect to x-axis * |

22 | * tyopph = direction cosine of the photon * |

23 | * with respect to y-axis * |

24 | * tzopph = direction cosine of the photon * |

25 | * with respect to z-axis * |

26 | * txpopp = direction cosine of the photon polarization * |

27 | * typopp = direction cosine of the photon polarization * |

28 | * tzpopp = direction cosine of the photon polarization * |

29 | * donear = distance to the nearest boundary * |

30 | * agopph = age of the photon (seconds) * |

31 | * loopph = generation of the photon * |

32 | * louopp = user flag * |

33 | * nregop = number of the region of the photon * |

34 | * nlatop = number of the lattice cell of the photon * |

35 | * tpropp = kinetic energy of parent particle of the photon * |

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

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

38 | * lpropp = generation of the parent particle of the photon * |

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

40 | * (not used for the moment) * |

41 | * lstopp = stack pointer * |

42 | * lmxopp = highest value of the stack pointer encountered * |

43 | * in the run * |

44 | * * |

45 | *----------------------------------------------------------------------* |

46 | * |

47 | COMMON / OPPHST / WTOPPH (MOSTCK), POPTPH (MOSTCK), |

48 | & XOPTPH (MOSTCK), YOPTPH (MOSTCK), ZOPTPH (MOSTCK), |

49 | & TXOPPH (MOSTCK), TYOPPH (MOSTCK), TZOPPH (MOSTCK), |

50 | & TXPOPP (MOSTCK), TYPOPP (MOSTCK), TZPOPP (MOSTCK), |

51 | & DONEAR (MOSTCK), AGOPPH (MOSTCK), TPROPP (MOSTCK), |

52 | & APROPP (MOSTCK), SPAROK (MKBMX1,MOSTCK), |

53 | & ISPORK (MKBMX2,MOSTCK), LOOPPH (MOSTCK), |

54 | & LOUOPP (MOSTCK), NREGOP (MOSTCK), NLATOP (MOSTCK), |

55 | & IPROPP (MOSTCK), LPROPP (MOSTCK), NPROPP (MOSTCK), |

56 | & LSTOPP, LMXOPP |

57 | |