Doxygen Source Code Documentation
cdf_72.c File Reference
#include "cdflib.h"Go to the source code of this file.
Functions | |
| double | stvaln (double *p) |
Function Documentation
|
|
Definition at line 2 of file cdf_72.c. References devlpl(), p, and stvaln(). Referenced by dinvnr(), and stvaln().
00033 {
00034 static double xden[5] = {
00035 0.993484626060e-1,0.588581570495e0,0.531103462366e0,0.103537752850e0,
00036 0.38560700634e-2
00037 };
00038 static double xnum[5] = {
00039 -0.322232431088e0,-1.000000000000e0,-0.342242088547e0,-0.204231210245e-1,
00040 -0.453642210148e-4
00041 };
00042 static int K1 = 5;
00043 static double stvaln,sign,y,z;
00044 /*
00045 ..
00046 .. Executable Statements ..
00047 */
00048 if(!(*p <= 0.5e0)) goto S10;
00049 sign = -1.0e0;
00050 z = *p;
00051 goto S20;
00052 S10:
00053 sign = 1.0e0;
00054 z = 1.0e0-*p;
00055 S20:
00056 y = sqrt(-(2.0e0*log(z)));
00057 stvaln = y+devlpl(xnum,&K1,&y)/devlpl(xden,&K1,&y);
00058 stvaln = sign*stvaln;
00059 return stvaln;
00060 } /* END */
|
