From 8145e203f9abdfd21c992b08d99a62dcd7ecbe7f Mon Sep 17 00:00:00 2001 From: morsch Date: Thu, 17 Apr 2008 21:54:41 +0000 Subject: [PATCH 1/1] IOIOCM common block added. --- TFluka/Fioiocm.h | 66 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 66 insertions(+) create mode 100644 TFluka/Fioiocm.h diff --git a/TFluka/Fioiocm.h b/TFluka/Fioiocm.h new file mode 100644 index 00000000000..21ee0cec317 --- /dev/null +++ b/TFluka/Fioiocm.h @@ -0,0 +1,66 @@ +#ifndef FIOIOCM_H +#define FIOIOCM_H + +#include "Rtypes.h" +#include "cfortran.h" +extern "C" { + +/* +*$ CREATE IOIOCM.ADD +*COPY IOIOCM +* +*=== Ioiocm ===========================================================* +* +*----------------------------------------------------------------------* +* * +* Copyright (C) 2002-2006 by Alfredo Ferrari * +* All Rights Reserved. * +* * +* * +* IOn-IOn CoMmon: * +* * +* Ion-Ion collision common for Fluka9x/Fluka200x....: * +* * +* Last change on 19-apr-06 by Alfredo Ferrari, INFN-Milan * +* * +* Description of the variable(s): * +* * +* Eknion = laboratory kinetic energy per nucleon (GeV/amu) * +* Etnion = laboratory total energy per nucleon (GeV/amu) * +* Plnion = laboratory momentum per nucleon (GeV/c/amu) * +* Eexion = excitation energy of the projectile ion (GeV) * +* T12ion = half life of the projectile ion (for Eexion=0) (s) * +* Matprj(i) = list of materials used as projectiles * +* Nmatpr = number of materials defined inside Matprj * +* Iproa = the projectile mass number * +* Iproz = the projectile proton number * +* Iprom = the projectile isomer number * +* * +* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! * +* !!!! Note that the units are GeV/amu --> per unit mass !!!! * +* !!!! with mass measured in amu (1 amu = Amuc12 GeV) !!!! * +* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! * +* * +*----------------------------------------------------------------------* +* + COMMON / IOIOCM / EKNION, ETNION, PLNION, EEXION, T12ION, + & MATPRJ (MXXMDF), NMATPR, IPROA , IPROZ , IPROM + SAVE / IOIOCM / +*/ + typedef struct { + Double_t eknion; + Double_t etnion; + Double_t plnion; + Double_t eexion; + Double_t t12ion; + Int_t matprj[mxxmdf]; + Int_t nmatpr; + Int_t iproa; + Int_t iproz; + Int_t iprom; + } ioiocmCommon; +#define IOIOCM COMMON_BLOCK(IOIOCM,ioiocm) +COMMON_BLOCK_DEF(ioiocmCommon, IOIOCM); + +} +#endif -- 2.39.3