TFluka/queffc.cxx

   1 #include "Fdimpar.h"  //(DIMPAR) fluka include
   2 #include "Ftrackr.h"  //(TRACKR) fluka common
   3 #include "Fiounit.h"  //(IOUNIT) fluka common
   4 #include "Fopphcm.h"  //(OPPHCM) fluka common
   5 #ifndef WIN32
   6 # define queffc queffc_
   7 #else
   8 # define queffc QUEFFC
   9 #endif
  10 extern "C" {
  11 Double_t queffc(Double_t& wvlngt, Double_t& omgpho, Int_t& mmat)
  12 {
  13     printf("queffc called  %e %e %d \n", wvlngt, omgpho, mmat);
  14     if (wvlngt  > OPPHCM.wvmxsn || wvlngt < OPPHCM.wvmnsn) {
  15         return (0.);
  16     } else {
  17         return (OPPHCM.opsnmx);
  18     }
  19 }
  20 }