User functions for optical properties.
[u/mrichter/AliRoot.git] / TFluka / rfrndx.cxx
1 #include "Fdimpar.h"  //(DIMPAR) fluka include
2 #include "Ftrackr.h"  //(TRACKR) fluka common
3 #include "Fiounit.h"  //(IOUNIT) fluka common
4 #ifndef WIN32
5 # define rfrndx rfrndx_
6 #else
7 # define rfrndx RFRNDX
8 #endif
9 extern "C" {
10 Double_t rfrndx(Double_t& wvlngt, Double_t& omgpho, Int_t& mmat)
11 {
12     printf("rfrndx called  %e %e %d \n", wvlngt, omgpho, mmat);
13     return (0.);
14 }
15 }
16