User functions for optical properties.
[u/mrichter/AliRoot.git] / TFluka / rfrndx.cxx
CommitLineData
1b866d4b 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
9extern "C" {
10Double_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