4
const long int mu = 25;
5
const long int np = 49;
7
/* index standard interval [-1,1] */
8
#define STDI(X) ((X)+mu)
13
static float angmu[10];
14
static float angphi[13];
17
/* [a,b] = [0,2*Pi] */
18
float rp[np]; /* gaussian angles */
19
float gp[np]; /* gaussian weights */
22
float rm[2*mu+1]; /* shifted gaussian angles */
23
float gb[2*mu+1]; /* shifted gaussian weights */
24
/* with the ends zeroed as well as the center */
25
/* [0 ? ? ? ? 0 ? ? ? ? 0] */
27
/* preliminary computations for gauss integration */
30
/* Compute for a given n, the gaussian quadrature (the n gaussian angles and the
31
their respective weights). The gaussian quadrature is used in numerical integration involving the
32
cosine of emergent or incident direction zenith angle. */
33
static void gauss (float a, float b, float *x, float *w, long int n);
36
#endif /* MY_GAUSS_H */