Line data    Source code

       1             : //--------------------------------------------------------------------------
       2             : // File and Version Information:
       3             : //      $Id: EvtRanf.cpp,v 1.5 2009-03-16 15:44:04 robbep 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           0 :     return EvtRandom::Flat() ;
      27             :   }
      28             : }
      29             : #endif