Doxygen Source Code Documentation
cdf_65.c File Reference
#include "cdflib.h"Go to the source code of this file.
Functions | |
| double | gsumln (double *a, double *b) |
Function Documentation
|
||||||||||||
|
Definition at line 2 of file cdf_65.c. References a, alnrel(), gamln1(), and gsumln(). Referenced by betaln(), dlnbet(), and gsumln().
00009 {
00010 static double gsumln,x,T1,T2;
00011 /*
00012 ..
00013 .. Executable Statements ..
00014 */
00015 x = *a+*b-2.e0;
00016 if(x > 0.25e0) goto S10;
00017 T1 = 1.0e0+x;
00018 gsumln = gamln1(&T1);
00019 return gsumln;
00020 S10:
00021 if(x > 1.25e0) goto S20;
00022 gsumln = gamln1(&x)+alnrel(&x);
00023 return gsumln;
00024 S20:
00025 T2 = x-1.0e0;
00026 gsumln = gamln1(&T2)+log(x*(1.0e0+x));
00027 return gsumln;
00028 } /* END */
|
