1 //--------------------------------------------------------------------------
2 // File and Version Information:
3 // $Id: EvtRanf.cpp,v 1.5 2009-03-16 15:44:04 robbep Exp $
6 // subroutine evtranf_.
7 // Provides FORTRAN calable interface to EvtRandom::Flat()
8 // Can be used as EVTRANF instead of RANF in FORTRAN programs
9 // or as evtranf_ instead of ranf_ in C/C++ programs.
10 // No header file is provided, as C++ programs should use EvtRandom
13 //------------------------------------------------------------------------
14 #include "EvtGenBase/EvtRandom.hh"
17 double __stdcall EVTRANF( )
19 return EvtRandom::Flat() ;
26 return EvtRandom::Flat() ;