TEvtGen/EvtGenBase/EvtRanFor.cpp

   1 //--------------------------------------------------------------------------
   2 // File and Version Information:
   3 //      $Id: EvtRanFor.cpp,v 1.5 2009-03-16 15:44:04 robbep Exp $
   4 //
   5 // Description:
   6 //      subroutine emcranfor_.
   7 //      Provides FORTRAN calable interface to EvtRandom::Flat()
   8 //      Can be used as EVTRANFOR instead of RANLUX in FORTRAN programs
   9 //      or as evtranfor_ instead of ranlux_ in C/C++ programs.
  10 //      No header file is provided, as C++ programs should use EvtRandom
  11 //
  12 // Environment:
  13 //      Software developed for the BaBar Detector at the SLAC B-Factory.
  14 //
  15 // Author List:
  16 //      Sven Menke
  17 //
  18 // Copyright Information: See EvtGen/COPYRIGHT
  19 //
  20 //------------------------------------------------------------------------
  21 #include "EvtGenBase/EvtPatches.hh"
  22 #include <stdlib.h>
  23 #include <stdio.h>
  24 #include <math.h>
  25 #include <iostream>
  26 #include "EvtGenBase/EvtRandom.hh"
  27 #ifdef WIN32
  28 extern "C" {
  29   void EVTRANFOR(float *rvec, int *len)
  30   {
  31     for (int i=0;i<*len;i++)
  32       rvec[i] = EvtRandom::Flat();
  33   }
  34 }
  35 #else
  36 extern "C" {
  37   void evtranfor_(float *rvec, int *len)
  38   {
  39     for (int i=0;i<*len;i++)
  40       rvec[i] = EvtRandom::Flat();
  41   }
  42 }
  43 #endif