TEvtGen/EvtGenBase/EvtRanf.cxx

   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