#include "TVirtualMCApplication.h"
+#include "TFluka.h"
#include "Fdblprc.h" //(DBLPRC) fluka common
//
// #include "TCallf77.h"
*----------------------------------------------------------------------*
*/
- idisc = 0;
Double_t bc[3];
Double_t xc[3];
xc[2] = z;
-
+
+//
+// Check if stopping has been required by user
+//
+ idisc = 0;
+ TFluka* fluka = (TFluka*) gMC;
+ if (fluka->GetStoppingCondition()) {
+ fluka->ResetStoppingCondition();
+ idisc = 1;
+ }
+
(TVirtualMCApplication::Instance())->Field(xc, bc);
b = sqrt(bc[0] * bc[0] + bc[1] * bc[1] + bc[2] * bc[2]);