93 #include "type_parite.h" 111 int base, indic_r, indic_t, indic_p ;
112 int b1_r, b2_r, b1_t, b2_t, b1_p, b2_p ;
114 int indic_total = 1 ;
117 for (
int l=0 ; l<b1.
nzone ; l++) {
452 base = base |
T_COS ;
457 base = base |
T_SIN ;
469 base = base |
T_COS ;
474 base = base |
T_SIN ;
502 base = base |
T_LEG ;
567 base = base |
R_LEG ;
740 if (indic_r*indic_t*indic_p == -1)
746 if (indic_total == -1)
#define T_LEG
fct. de Legendre associees
#define T_LEG_MP
fct. de Legendre associees avec m pair
#define P_COSSIN
dev. standart
#define R_CHEBPI_I
Cheb. pair-impair suivant l impair pour l=0.
#define T_LEG_MI
fct. de Legendre associees avec m impair
Base_val operator*(const Base_val &, const Base_val &)
This operator is used when calling multiplication or division of Valeur .
#define MSQ_P
Extraction de l'info sur Phi.
#define T_COS
dev. cos seulement
#define T_COSSIN_SP
sin pair-cos impair alternes, sin pour m=0
#define R_LEGP
base de Legendre paire (rare) seulement
#define R_LEGI
base de Legendre impaire (rare) seulement
int nzone
Number of domains (zones)
#define R_JACO02
base de Jacobi(0,2) ordinaire (finjac)
#define T_SIN
dev. sin seulement
#define T_LEG_I
fct. de Legendre associees impaires
#define T_COS_I
dev. cos seulement, harmoniques impaires
#define R_CHEBI
base de Cheb. impaire (rare) seulement
#define R_CHEBP
base de Cheb. paire (rare) seulement
#define T_COS_P
dev. cos seulement, harmoniques paires
#define MSQ_T
Extraction de l'info sur Theta.
#define T_COSSIN_C
dev. cos-sin alternes, cos pour m=0
int * b
Array (size: nzone ) of the spectral basis in each domain.
#define MSQ_R
Extraction de l'info sur R.
#define T_SIN_P
dev. sin seulement, harmoniques paires
#define T_COSSIN_SI
sin impair-cos pair alternes, sin pour m=0
#define R_CHEBPIM_I
Cheb. pair-impair suivant m, impair pour m=0.
#define R_CHEBPIM_P
Cheb. pair-impair suivant m, pair pour m=0.
Bases of the spectral expansions.
#define T_LEG_P
fct. de Legendre associees paires
#define R_CHEBPI_P
Cheb. pair-impair suivant l pair pour l=0.
#define T_COSSIN_CI
cos impair-sin pair alternes, cos pour m=0
void set_base_nondef()
Sets the spectral bases to NONDEF.
#define P_COSSIN_I
dev. sur Phi = 2*phi, freq. impaires
#define R_CHEBU
base de Chebychev ordinaire (fin), dev. en 1/r
#define P_COSSIN_P
dev. sur Phi = 2*phi, freq. paires
#define T_COSSIN_CP
cos pair-sin impair alternes, cos pour m=0
#define T_SIN_I
dev. sin seulement, harmoniques impaires
#define T_COSSIN_S
dev. cos-sin alternes, sin pour m=0
#define R_LEG
base de Legendre ordinaire (fin)
#define R_CHEB
base de Chebychev ordinaire (fin)