Revision 692 branches/merge-trunk-davef/src/linad99/vgamdev.cpp

vgamdev.cpp (revision 692)
1
/*
2
  $Id$
3
 
4
  Author: David Fournier
5
  Copyright (c) 2008, 2009, 2010 Regents of the University of California 
1
/**
2
 * $Id$
3
 *
4
 * Author: David Fournier
5
 * Copyright (c) 2008, 2009, 2010 Regents of the University of California 
6 6
 */
7 7
#include <fvar.hpp>
8 8
#define ITMAX 100
......
12 12
static void gcf(double& gammcf,double a,double x,double &gln);
13 13
static void gser(double& gamser,double a,double x,double& gln);
14 14

  
15
/**
16
  \file gamma functions for differentiable objects.
17
*/
18

  
19 15
  dvariable gamma_deviate(const prevariable& _x,const prevariable& _a)
20 16
  {
21 17
    prevariable& x= (prevariable&)(_x);
......
51 47
    \n\n The implementation of this algorithm was inspired by
52 48
    "Numerical Recipes in C", 2nd edition,
53 49
    Press, Teukolsky, Vetterling, Flannery, chapter 6
50

  
51
    \deprecated Scheduled for replacement by 2010.
54 52
*/
55 53
static void gcf(double& gammcf,double a,double x,double &gln)
56 54
{
......
84 82
    \n\n The implementation of this algorithm was inspired by
85 83
    "Numerical Recipes in C", 2nd edition,
86 84
    Press, Teukolsky, Vetterling, Flannery, chapter 6
85

  
86
    \deprecated Scheduled for replacement by 2010.
87 87
*/
88 88
static void gser(double& gamser,double a,double x,double& gln)
89 89
{
......
176 176
  return vz;
177 177
}
178 178

  
179
#endif //#if defined(USE_LAPLACE)
179
#endif
180 180

  
181 181
#undef ITMAX
182 182
#undef EPS

Also available in: Unified diff