]>
Commit | Line | Data |
---|---|---|
da0e9ce3 | 1 | //-------------------------------------------------------------------------- |
2 | // File and Version Information: | |
3 | // $Id: EvtRanFor.cc,v 1.4 2009/02/18 03:31:38 ryd 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 |