1 //--------------------------------------------------------------------------
4 // This software is part of the EvtGen package developed jointly
5 // for the BaBar and CLEO collaborations. If you use all or part
6 // of it, please give an appropriate acknowledgement.
8 // Copyright Information: See EvtGen/COPYRIGHT
9 // Copyright (C) 1998 Caltech, UCSB
13 // Description: Evaluates the Wigner d-Functions.
15 // Modification history:
17 // RYD March 14, 1999 Module created
19 //------------------------------------------------------------------------
21 #include "EvtGenBase/EvtPatches.hh"
26 #include "EvtGenBase/EvtdFunction.hh"
27 #include "EvtGenBase/EvtdFunctionSingle.hh"
30 double EvtdFunction::d(int j,int m1,int m2, double theta){
39 if (abs(m2p)<abs(m1p)) {
43 if ((m1p-m2p)%4!=0) signp=-signp;
46 //make m2p non-negative
50 if ((m1p-m2p)%4!=0) signp=-signp;
54 EvtdFunctionSingle df;
58 double d=df.d(j,m1p,m2p,theta)*signp;