29char valeur_coef_i_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Valeur/valeur_coef_i.C,v 1.17 2014/10/13 08:53:49 j_novak Exp $" ;
133void ipasprevu_r(
const int*,
const int*,
double*,
const int*,
double*) ;
134void ipasprevu_t(
const int*,
const int*,
double*,
const int*,
double*) ;
135void ipasprevu_p(
const int* ,
const int* ,
const int* ,
double* ,
double* ) ;
136void ibase_non_def_r(
const int*,
const int*,
double*,
const int*,
double*) ;
137void ibase_non_def_t(
const int*,
const int*,
double*,
const int*,
double*) ;
138void ibase_non_def_p(
const int* ,
const int* ,
const int* ,
double* ,
double* ) ;
209 if (
etat == ETATZERO) {
229 int nz =
mg->get_nzone() ;
230 for (
int l=0;
l<nz;
l++) {
236 if (
cf->get_etat() == ETATZERO) {
243 int np =
f->get_dim(2) ;
244 int nt =
f->get_dim(1) ;
245 int nr =
f->get_dim(0) ;
247 int np_c =
cf->get_dim(2) ;
248 int nt_c =
cf->get_dim(1) ;
249 int nr_c =
cf->get_dim(0) ;
263 int ntot =
cf->get_taille() ;
290 for (
int i=0 ;
i<
f->get_taille() ;
i++)
341void ipasprevu_r(
const int*,
const int*,
double*,
const int*,
double*) {
342 cout <<
"Valeur::coef_i: the required expansion basis in r " <<
endl ;
343 cout <<
" is not implemented !" <<
endl ;
347void ipasprevu_t(
const int*,
const int*,
double*,
const int*,
double* ) {
348 cout <<
"Valeur::coef_i: the required expansion basis in theta " << endl ;
349 cout <<
" is not implemented !" << endl ;
353void ipasprevu_p(
const int*,
const int*,
const int*,
double*,
double* ) {
354 cout <<
"Valeur::coef_i: the required expansion basis in phi " << endl ;
355 cout <<
" is not implemented !" << endl ;
359void ibase_non_def_r(
const int*,
const int*,
double*,
const int*,
double*) {
360 cout <<
"Valeur::coef_i: the expansion basis in r is undefined !" << endl ;
364void ibase_non_def_t(
const int*,
const int*,
double*,
const int*,
double*) {
365 cout <<
"Valeur::coef_i: the expansion basis in theta is undefined !"
370void ibase_non_def_p(
const int*,
const int*,
const int*,
double*,
double*) {
371 cout <<
"Valeur::coef_i: the expansion basis in phi is undefined !" << endl ;
int * b
Array (size: nzone ) of the spectral basis in each domain.
Time evolution with partial storage (*** under development ***).
Base_val base
Bases of the spectral expansions.
Tbl ** t
Array (size nzone ) of pointers on the Tbl 's which contain the spectral coefficients in each domain.
Tbl ** t
Array (size nzone ) of pointers on the Tbl 's.
void set_etat_qcq()
Sets the logical state to ETATQCQ (ordinary state).
Mtbl * c
Values of the function at the points of the multi-grid
const Mg3d * mg
Multi-grid Mgd3 on which this is defined.
void coef_i() const
Computes the physical value of *this.
Mtbl_cf * c_cf
Coefficients of the spectral expansion of the function.
Base_val base
Bases on which the spectral expansion is performed.
int etat
Logical state (ETATNONDEF , ETATQCQ or ETATZERO ).
Cmp sqrt(const Cmp &)
Square root.
#define MAX_BASE_2
Smaller maximum bases used for phi (and higher dimensions for now)
#define TRA_T
Translation en Theta, used for a bitwise shift (in hex)
#define T_LEG_MP
fct. de Legendre associees avec m pair
#define P_COSSIN_P
dev. sur Phi = 2*phi, freq. paires
#define R_LEGP
base de Legendre paire (rare) seulement
#define MAX_BASE
Nombre max. de bases differentes.
#define T_LEG_PI
fct. de Legendre associees paires avec m impair
#define R_CHEBU
base de Chebychev ordinaire (fin), dev. en 1/r
#define R_JACO02
base de Jacobi(0,2) ordinaire (finjac)
#define T_COSSIN_SP
sin pair-cos impair alternes, sin pour m=0
#define R_LEGI
base de Legendre impaire (rare) seulement
#define R_CHEBI
base de Cheb. impaire (rare) seulement
#define T_LEG
fct. de Legendre associees
#define T_SIN_P
dev. sin seulement, harmoniques paires
#define MSQ_R
Extraction de l'info sur R.
#define T_COSSIN_S
dev. cos-sin alternes, sin pour m=0
#define R_CHEBPIM_I
Cheb. pair-impair suivant m, impair pour m=0.
#define T_COSSIN_SI
sin impair-cos pair alternes, sin pour m=0
#define R_CHEBPI_I
Cheb. pair-impair suivant l impair pour l=0.
#define R_LEG
base de Legendre ordinaire (fin)
#define T_LEG_P
fct. de Legendre associees paires
#define T_LEG_IP
fct. de Legendre associees impaires avec m pair
#define NONDEF
base inconnue
#define T_COS_P
dev. cos seulement, harmoniques paires
#define T_COSSIN_CI
cos impair-sin pair alternes, cos pour m=0
#define P_COSSIN
dev. standart
#define P_COSSIN_I
dev. sur Phi = 2*phi, freq. impaires
#define R_CHEBPIM_P
Cheb. pair-impair suivant m, pair pour m=0.
#define TRA_R
Translation en R, used for a bitwise shift (in hex)
#define T_LEG_MI
fct. de Legendre associees avec m impair
#define MSQ_T
Extraction de l'info sur Theta.
#define T_COSSIN_CP
cos pair-sin impair alternes, cos pour m=0
#define T_LEG_II
fct. de Legendre associees impaires avec m impair
#define R_CHEB
base de Chebychev ordinaire (fin)
#define T_LEG_I
fct. de Legendre associees impaires
#define T_SIN_I
dev. sin seulement, harmoniques impaires
#define T_COS
dev. cos seulement
#define R_CHEBP
base de Cheb. paire (rare) seulement
#define MSQ_P
Extraction de l'info sur Phi.
#define T_SIN
dev. sin seulement
#define T_LEG_PP
fct. de Legendre associees paires avec m pair
#define T_COS_I
dev. cos seulement, harmoniques impaires
#define T_COSSIN_C
dev. cos-sin alternes, cos pour m=0
#define TRA_P
Translation en Phi, used for a bitwise shift (in hex)
#define R_CHEBPI_P
Cheb. pair-impair suivant l pair pour l=0.
void c_est_pas_fait(const char *)
Helpful function to say something is not implemented yet.