simplify Ylm data structures

This commit is contained in:
Martin Reinecke 2019-01-11 09:27:04 +01:00
parent b0b0875def
commit 253b253467
3 changed files with 52 additions and 55 deletions

View file

@ -41,7 +41,7 @@ static const double sharp_fbig=0x1p+800,sharp_fsmall=0x1p-800;
static const double sharp_ftol=0x1p-60;
static const double sharp_fbighalf=0x1p+400;
typedef struct { double f[2]; } sharp_ylmgen_dbl2;
typedef double sharp_ylmgen_dbl2[2];
typedef struct
{
@ -54,16 +54,15 @@ typedef struct
int m;
double *alpha;
sharp_ylmgen_dbl2 *coef;
/* used if s==0 */
double *mfac, *eps;
sharp_ylmgen_dbl2 *ab;
/* used if s!=0 */
int sinPow, cosPow, preMinus_p, preMinus_m;
double *prefac;
int *fscale;
sharp_ylmgen_dbl2 *fx;
/* internal usage only */
/* used if s==0 */