TFluka/Fopphst.h

   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 {
  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];
  74     Double_t sparok [mostck][mkbmx1];
  75     Int_t    ispork [mostck][mkbmx2];
  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;
  85 } opphstCommon;
  86
  87 #define OPPHST COMMON_BLOCK(OPPHST,opphst)
  88 COMMON_BLOCK_DEF(opphstCommon, OPPHST);
  89
  90 }
  91 #endif
  92