00001 //-------------------------------------------------------------------------- 00002 // File and Version Information: 00003 // $Id: EvtRanFor.cc,v 1.1.1.2 2007/10/26 05:03:14 pingrg Exp $ 00004 // 00005 // Description: 00006 // subroutine emcranfor_. 00007 // Provides FORTRAN calable interface to EvtRandom::Flat() 00008 // Can be used as EVTRANFOR instead of RANLUX in FORTRAN programs 00009 // or as evtranfor_ instead of ranlux_ in C/C++ programs. 00010 // No header file is provided, as C++ programs should use EvtRandom 00011 // 00012 // Environment: 00013 // Software developed for the BaBar Detector at the SLAC B-Factory. 00014 // 00015 // Author List: 00016 // Sven Menke 00017 // 00018 // Copyright Information: See EvtGen/COPYRIGHT 00019 // 00020 //------------------------------------------------------------------------ 00021 #include "EvtGenBase/EvtPatches.hh" 00022 #include <stdlib.h> 00023 #include <stdio.h> 00024 #include <math.h> 00025 #include <iostream> 00026 #include "EvtGenBase/EvtRandom.hh" 00027 extern "C" { 00028 void evtranfor_(float *rvec, int *len) 00029 { 00030 for (int i=0;i<*len;i++) 00031 rvec[i] = EvtRandom::Flat(); 00032 } 00033 } 00034