Flugg/examples/fluggEx/T36flugg/mainT36.cc

   1 // $Id$
   2 // Flugg tag $Name$
   3
   4 #include "FGeometryInit.hh"
   5 #include "MyDetectorConstruction.hh"
   6
   7 #define flukam flukam_
   8
   9 extern "C" void flukam(const G4int & GeoFlag);
  10
  11 int main() {
  12
  13   FGeometryInit* theFGeometryInit = FGeometryInit::GetInstance();
  14
  15   theFGeometryInit
  16     ->setDetConstruction(new MyDetectorConstruction());
  17
  18 //flag for geometry:
  19 // 1 for GEANT4
  20 // 0 for FLUKA
  21 // 2 for Rubia
  22     const G4int flag = 1;
  23
  24 //call fortran
  25     flukam(flag);
  26
  27 //end
  28   return 0;
  29 }
  30
  31
  32
  33