User functions for optical properties.
[u/mrichter/AliRoot.git] / TFluka / rflctv.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 rflctv rflctv_
6 #else
7 # define rflctv RFLCTV
8 #endif
9 extern "C" {
10 Double_t rflctv(Double_t& wvlngt, Double_t& omgpho, Int_t& mmat)
11 {
12     printf("rflctv called  %e %e %d \n", wvlngt, omgpho, mmat);
13     return (0.);
14 }
15 }