TFluka/Fioiocm.h

   1 #ifndef FIOIOCM_H
   2 #define FIOIOCM_H
   3
   4 #include "Rtypes.h"
   5 #include "cfortran.h"
   6 extern "C" {
   7
   8 /*
   9 *$ CREATE IOIOCM.ADD
  10 *COPY IOIOCM
  11 *
  12 *=== Ioiocm ===========================================================*
  13 *
  14 *----------------------------------------------------------------------*
  15 *                                                                      *
  16 *     Copyright (C) 2002-2006      by  Alfredo Ferrari                 *
  17 *     All Rights Reserved.                                             *
  18 *                                                                      *
  19 *                                                                      *
  20 *     IOn-IOn CoMmon:                                                  *
  21 *                                                                      *
  22 *     Ion-Ion collision common for Fluka9x/Fluka200x....:              *
  23 *                                                                      *
  24 *     Last change  on  19-apr-06   by  Alfredo Ferrari, INFN-Milan     *
  25 *                                                                      *
  26 *     Description of the variable(s):                                  *
  27 *                                                                      *
  28 *        Eknion = laboratory kinetic  energy per nucleon  (GeV/amu)    *
  29 *        Etnion = laboratory total    energy per nucleon  (GeV/amu)    *
  30 *        Plnion = laboratory momentum        per nucleon  (GeV/c/amu)  *
  31 *        Eexion = excitation energy of the projectile ion (GeV)        *
  32 *        T12ion = half life of the projectile ion (for Eexion=0) (s)   *
  33 *     Matprj(i) = list   of materials used as projectiles              *
  34 *        Nmatpr = number of materials defined inside Matprj            *
  35 *        Iproa  = the projectile mass   number                         *
  36 *        Iproz  = the projectile proton number                         *
  37 *        Iprom  = the projectile isomer number                         *
  38 *                                                                      *
  39 *     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!     *
  40 *     !!!! Note that the units are GeV/amu --> per unit mass  !!!!     *
  41 *     !!!! with mass measured in amu (1 amu = Amuc12 GeV)     !!!!     *
  42 *     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!     *
  43 *                                                                      *
  44 *----------------------------------------------------------------------*
  45 *
  46       COMMON / IOIOCM / EKNION, ETNION, PLNION, EEXION, T12ION,
  47      &                  MATPRJ (MXXMDF), NMATPR, IPROA , IPROZ , IPROM
  48       SAVE / IOIOCM /
  49 */
  50     typedef struct {
  51         Double_t eknion;
  52         Double_t etnion;
  53         Double_t plnion;
  54         Double_t eexion;
  55         Double_t t12ion;
  56         Int_t    matprj[mxxmdf];
  57         Int_t    nmatpr;
  58         Int_t    iproa;
  59         Int_t    iproz;
  60         Int_t    iprom;
  61     } ioiocmCommon;
  62 #define IOIOCM COMMON_BLOCK(IOIOCM,ioiocm)
  63 COMMON_BLOCK_DEF(ioiocmCommon, IOIOCM);
  64
  65 }
  66 #endif