From 6177a6a6832f52d24ca67ef5637fc2fd55e89a1b Mon Sep 17 00:00:00 2001 From: morsch Date: Thu, 1 Sep 2005 13:34:33 +0000 Subject: [PATCH] stars replaced by sumcou common. --- TFluka/{Fstars.h => Fsumcou.h} | 37 +++++++++++++++------------------- 1 file changed, 16 insertions(+), 21 deletions(-) rename TFluka/{Fstars.h => Fsumcou.h} (90%) diff --git a/TFluka/Fstars.h b/TFluka/Fsumcou.h similarity index 90% rename from TFluka/Fstars.h rename to TFluka/Fsumcou.h index 7b9c91d7afc..238cab0699f 100644 --- a/TFluka/Fstars.h +++ b/TFluka/Fsumcou.h @@ -77,26 +77,21 @@ extern "C" { //* typedef struct { - Double_t westar[nallwp+7]; - Double_t wstop[nallwp+7]; - Double_t wdau[nallwp+7]; - Double_t wtkll[nallwp+7]; - Double_t wdec[nallwp+7]; - Double_t weifis[nallwp+7]; - Double_t deccts[nallwp+7]; - Double_t wdecct[nallwp+7]; - Double_t weisec[nallwp+19]; - Double_t wlwnsc[4]; - Double_t wophsc[4]; - Double_t edi[11]; + Double_t westar[2][nallwp+7]; + Double_t westop[2][nallwp+7]; + Double_t wedaug[2][nallwp+7]; + Double_t wekill[2][nallwp+7]; + Double_t wedecy[2][nallwp+7]; + Double_t weifis[2][nallwp+7]; + Double_t deccts[2][nallwp+7]; + Double_t wdecct[2][nallwp+7]; + Double_t weprdc[2][nallwp+7]; + Double_t wlwnsc[2][4]; + Double_t wophsc[2][4]; + Double_t edpsco[2][11]; Double_t woptph; Double_t wneulw; - Double_t westop; - Double_t wstars; - Double_t weipri; - Double_t wtdec; - Double_t wtdau; - Double_t wttkll; + Double_t weipri; Int_t numdec; Int_t ntstar; Int_t neulow; @@ -105,9 +100,9 @@ typedef struct { Int_t mtstar; Int_t meulow; Int_t mumoph; -} starsCommon; -#define STARS COMMON_BLOCK(STARS,stars) -COMMON_BLOCK_DEF(starsCommon,STARS); +} sumcouCommon; +#define SUMCOU COMMON_BLOCK(SUMCOU,sumcou) +COMMON_BLOCK_DEF(sumcouCommon,SUMCOU); } #endif -- 2.39.3