]>
Commit | Line | Data |
---|---|---|
da0e9ce3 | 1 | //-------------------------------------------------------------------------- |
2 | // File and Version Information: | |
3 | // $Id: EvtRanf.cc,v 1.1 2009/02/28 11:14:16 lange Exp $ | |
4 | // | |
5 | // Description: | |
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 | |
11 | // | |
12 | // | |
13 | //------------------------------------------------------------------------ | |
14 | #include "EvtGenBase/EvtRandom.hh" | |
15 | #ifdef WIN32 | |
16 | extern "C" { | |
17 | double __stdcall EVTRANF( ) | |
18 | { | |
19 | return EvtRandom::Flat() ; | |
20 | } | |
21 | } | |
22 | #else | |
23 | extern "C" { | |
24 | double evtranf_( ) | |
25 | { | |
26 | return EvtRandom::Flat() ; | |
27 | } | |
28 | } | |
29 | #endif |