Common blocks needed for radiation studies (B. Pastircak)
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 14 Jun 2007 14:21:16 +0000 (14:21 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 14 Jun 2007 14:21:16 +0000 (14:21 +0000)
TFluka/Fscohlp.h [new file with mode: 0755]
TFluka/Fsouevt.h [new file with mode: 0755]

diff --git a/TFluka/Fscohlp.h b/TFluka/Fscohlp.h
new file mode 100755 (executable)
index 0000000..ab4f805
--- /dev/null
@@ -0,0 +1,40 @@
+extern "C" {
+//*$ create scohlp.add
+//*copy scohlp 
+//*
+//*=== scohlp ===========================================================*
+//*
+//*----------------------------------------------------------------------*
+//*                                                                      *
+//*     Copyright (C) 1991-2005      by    Alfredo Ferrari & Paola Sala  *
+//*     All Rights Reserved.                                             *
+//*                                                                      *
+//*                                                                      *
+//*     Created on  05  august 1991  by    Alfredo Ferrari & Paola Sala  *
+//*                                                   Infn - Milan       *
+//*                                                                      *
+//*     Last change on 29-oct-94     by    Alfredo Ferrari               *
+//*                                                                      *
+//*     Energy/Star binnings/scorings (Comscw):                          *
+//*          ISCRNG = 1 --> Energy density  binning                      *
+//*          ISCRNG = 2 --> Star   density  binning                      *
+//*          ISCRNG = 3 --> Residual nuclei scoring                      *
+//*          JSCRNG = # of the binning                                   *
+//*     Flux like binnings/estimators (Fluscw):                          *
+//*          ISCRNG = 1 --> Boundary crossing estimator                  *
+//*          ISCRNG = 2 --> Track  length     binning                    *
+//*          ISCRNG = 3 --> Track  length     estimator                  *
+//*          ISCRNG = 4 --> Collision density estimator                  *
+//*          ISCRNG = 5 --> Yield             estimator                  *
+//*          JSCRNG = # of the binning/estimator                         *
+//*                                                                      *
+//*----------------------------------------------------------------------*
+
+typedef struct {
+   Int_t    iscrng;
+   Int_t    jscrng;
+   Int_t    lsczer;
+} scohlpCommon;
+#define SCOHLP COMMON_BLOCK(SCOHLP,scohlp)
+COMMON_BLOCK_DEF(scohlpCommon,SCOHLP);
+}
diff --git a/TFluka/Fsouevt.h b/TFluka/Fsouevt.h
new file mode 100755 (executable)
index 0000000..c484022
--- /dev/null
@@ -0,0 +1,70 @@
+#include "cfortran.h"
+#include "Rtypes.h"
+
+#include "Fdimpar.h"
+
+extern "C" {
+//*$ create souevt.add
+//*copy souevt 
+   
+//*=== Souevt ===========================================================*
+//*
+//*----------------------------------------------------------------------*
+//*                                                                      *
+//*     Copyright (C) 1996-2005      by    Alfredo Ferrari & Paola Sala  *
+//*     All Rights Reserved.                                             *
+//*                                                                      *
+//*                                                                      *
+//*     SOUrce EVenT:                                                    *
+//*                                                                      *
+//*     Created on 14 november 1996  by    Alfredo Ferrari & Paola Sala  *
+//*                                                   Infn - Milan       *
+//*                                                                      *
+//*     Last change on 16-mar-98     by    Alfredo Ferrari               *
+//*                                                                      *
+//*          X,Y,Zsoevt(i) = position    of the i_th source particle     *
+//*          TX,Y,Zsoev(i) = direction   of the i_th source particle     *
+//*              Wtsoev(i) = weight      of the i_th source particle     *
+//*              Pmsoev(i) = momentum    of the i_th source particle     *
+//*              Tksoev(i) = kin. energy of the i_th source particle     *
+//*              Agsoev(i) = age         of the i_th source particle     *
+//*              Aksoev(i) = Kaon ampl.  of the i_th source particle     *
+//*            Ussoev(j,i) = user var.   of the i_th source particle     *
+//*              Ijsoev(i) = identity    of the i_th source particle     *
+//*              Nrsoev(i) = region      of the i_th source particle     *
+//*              Nlsoev(i) = lattice     of the i_th source particle     *
+//*              Losoev(i) = user flag   of the i_th source particle     *
+//*            Iusoev(j,i) = user flags  of the i_th source particle     *
+//*                Npsoev  = number of the source particles              *
+//*                                                                      *
+//*----------------------------------------------------------------------*
+const Int_t mxsoev = 100;
+
+typedef struct {
+   Double_t xsoevt[mxsoev];
+   Double_t ysoevt[mxsoev];
+   Double_t zsoevt[mxsoev];
+   Double_t txsoev[mxsoev];
+   Double_t tysoev[mxsoev];
+   Double_t tzsoev[mxsoev];
+   Double_t txpsov[mxsoev];
+   Double_t typsov[mxsoev];
+   Double_t tzpsov[mxsoev];
+   Double_t wtsoev[mxsoev];
+   Double_t pmsoev[mxsoev];
+   Double_t tksoev[mxsoev];
+   Double_t agsoev[mxsoev];
+   Double_t aksoev[mxsoev];
+   Double_t ussoev[mkbmx1][mxsoev];
+   Int_t    ijsoev[mxsoev];
+   Int_t    nrsoev[mxsoev];
+   Int_t    nlsoev[mxsoev];
+   Int_t    losoev[mxsoev];
+   Int_t    iusoevo[mkbmx2][mxsoev];
+   Int_t    npsoev;
+
+} souevtCommon;
+#define SOUEVT COMMON_BLOCK(SOUEVT,souevt)
+COMMON_BLOCK_DEF(souevtCommon,SOUEVT);
+}