+++ /dev/null
-#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