Line data    Source code

       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           0 :     for (int i=0;i<*len;i++)
      40           0 :       rvec[i] = EvtRandom::Flat();
      41           0 :   }
      42             : }
      43             : #endif