Flugg/Wrappers.hh

   1
   2 // Flugg tag
   3
   4 ///////////////////////////////////////////////////////////////////
   5 //
   6 // Interface for Flugg Wrappers
   7 //
   8 ///////////////////////////////////////////////////////////////////
   9
  10 #ifndef WRAPPERS_HH
  11 #define WRAPPERS_HH
  12
  13 #include "globals.hh"
  14
  15 #define idnrwr idnrwr_
  16 #define g1wr g1wr_
  17 #define g1rtwr g1rtwr_
  18 #define conhwr conhwr_
  19 #define inihwr inihwr_
  20 #define jomiwr jomiwr_
  21 #define lkdbwr lkdbwr_
  22 #define lkfxwr lkfxwr_
  23 #define lkmgwr lkmgwr_
  24 #define lkwr lkwr_
  25 #define magfld magfld_
  26 #define nrmlwr nrmlwr_
  27 #define rgrpwr rgrpwr_
  28 #define isvhwr isvhwr_
  29
  30
  31 #define G4GEOMETRY_DEBUG 1
  32
  33 // WrapDN
  34
  35 extern "C" G4int idnrwr(const G4int & nreg, const G4int & mlat);
  36
  37 // WrapG1
  38
  39 extern "C" void  g1wr(G4double& pSx, G4double& pSy, G4double& pSz, G4double* pV,
  40                       G4int& oldReg, const G4int& oldLttc, G4double& propStep,
  41                       G4int& nascFlag, G4double& retStep, G4int& newReg,
  42                       G4double& saf, G4int& newLttc, G4int& LttcFlag,
  43                       G4double* sLt, G4int* jrLt);
  44
  45 // WrapG1RT
  46
  47 extern "C" void g1rtwr(void);
  48
  49 // WrapIncrHist
  50
  51 extern "C" void conhwr(G4int& intHist, G4int* incrCount);
  52
  53 // WrapIniHist
  54
  55 extern "C" void inihwr(G4int& intHist);
  56
  57 // WrapInit
  58
  59 extern "C" void jomiwr(const G4int & nge, const G4int& lin, const G4int& lou,
  60                        G4int& flukaReg);
  61
  62 // WrapLookDB
  63
  64 extern "C" void lkdbwr(G4double& pSx, G4double& pSy, G4double& pSz,
  65                        G4double* pV, const G4int& oldReg, const G4int& oldLttc,
  66                        G4int& newReg, G4int& flagErr, G4int& newLttc);
  67
  68 // WrapLookFX
  69
  70 extern "C" void lkfxwr(G4double& pSx, G4double& pSy, G4double& pSz,
  71                        G4double* pV, const G4int& oldReg, const G4int& oldLttc,
  72                        G4int& newReg, G4int& flagErr, G4int& newLttc);
  73
  74 // WrapLookMG
  75
  76 extern "C" void lkmgwr(G4double& pSx, G4double& pSy, G4double& pSz,
  77                        G4double* pV, const G4int& oldReg, const G4int& oldLttc,
  78                        G4int& flagErr, G4int& newReg, G4int& newLttc);
  79
  80 // WrapLookZ
  81
  82 extern "C" void lkwr(G4double& pSx, G4double& pSy, G4double& pSz,
  83                      G4double* pV, const G4int& oldReg, const G4int& oldLttc,
  84                      G4int& newReg, G4int& flagErr, G4int& newLttc);
  85
  86 // WrapMag
  87
  88 extern "C" void magfld(const G4double& pX, const G4double& pY, const G4double& pZ,
  89                        G4double& cosBx, G4double& cosBy, G4double& cosBz,
  90                        G4double& Bmag, G4int& reg, G4int& idiscflag);
  91
  92 // WrapNorml
  93
  94 extern "C" void nrmlwr(G4double& pSx, G4double& pSy, G4double& pSz,
  95                        G4double& pVx, G4double& pVy, G4double& pVz,
  96                        G4double* norml, const G4int& oldReg,
  97                        const G4int& newReg, G4int& flagErr);
  98
  99 // WrapReg
 100
 101 extern "C" void rgrpwr(const G4int& flukaReg, const G4int& ptrLttc, G4int& g4Reg,
 102                        G4int* indMother, G4int* repMother, G4int& depthFluka);
 103
 104 // WrapSavHist
 105
 106 extern "C" G4int isvhwr(const G4int& fCheck, const G4int& intHist);
 107
 108 #endif //WRAPPERS_HH
 109