28char base_val_name_r_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Base_val/base_val_name_r.C,v 1.6 2014/10/13 08:52:39 j_novak Exp $" ;
67void basename_r_unknown(
int,
int,
int,
char*) ;
68void basename_r_cheb(
int,
int,
int,
char*) ;
69void basename_r_chebp(
int,
int,
int,
char*) ;
70void basename_r_chebi(
int,
int,
int,
char*) ;
71void basename_r_chebpim_p(
int,
int,
int,
char*) ;
72void basename_r_chebpim_i(
int,
int,
int,
char*) ;
73void basename_r_chebpi_p(
int,
int,
int,
char*) ;
74void basename_r_chebpi_i(
int,
int,
int,
char*) ;
75void basename_r_leg(
int,
int,
int,
char*) ;
76void basename_r_legp(
int,
int,
int,
char*) ;
77void basename_r_legi(
int,
int,
int,
char*) ;
78void basename_r_jaco02(
int,
int,
int,
char*) ;
87 static void(*vbasename_r[
MAX_BASE])(int, int, int,
char*) ;
89 static bool first_call = true ;
97 for (
int ib=0 ; ib<
MAX_BASE ; ib++) {
98 vbasename_r[ib] = basename_r_unknown ;
109 vbasename_r[
R_LEG >>
TRA_R] = basename_r_leg ;
118 assert( (l>=0) && (l<
nzone) ) ;
122 vbasename_r[base_r](k, j, i, name) ;
131void basename_r_unknown(
int,
int,
int,
char*) {
132 cout <<
"Base_val::name_r : unknwon basis !" << endl ;
137void basename_r_cheb(
int,
int,
int i,
char* name) {
145 sprintf(cxr,
"%d", i) ;
150void basename_r_chebp(
int,
int,
int i,
char* name) {
159 sprintf(cxr,
"%d", xr) ;
164void basename_r_chebi(
int,
int,
int i,
char* name) {
173 sprintf(cxr,
"%d", xr) ;
178void basename_r_chebpim_p(
int k,
int,
int i,
char* name) {
184 int xr = (m%2 == 0) ? 2*i : 2*i + 1 ;
190 sprintf(cxr,
"%d", xr) ;
195void basename_r_chebpim_i(
int k,
int,
int i,
char* name) {
201 int xr = (m%2 == 0) ? 2*i + 1 : 2*i ;
207 sprintf(cxr,
"%d", xr) ;
211void basename_r_chebpi_p(
int ,
int j,
int i,
char* name) {
216 int xr = (j%2 == 0) ? 2*i : 2*i + 1 ;
222 sprintf(cxr,
"%d", xr) ;
227void basename_r_chebpi_i(
int ,
int j,
int i,
char* name) {
232 int xr = (j%2 == 0) ? 2*i + 1 : 2*i ;
238 sprintf(cxr,
"%d", xr) ;
242void basename_r_leg(
int,
int,
int i,
char* name) {
250 sprintf(cxr,
"%d", i) ;
255void basename_r_legp(
int,
int,
int i,
char* name) {
264 sprintf(cxr,
"%d", xr) ;
269void basename_r_legi(
int,
int,
int i,
char* name) {
278 sprintf(cxr,
"%d", xr) ;
282void basename_r_jaco02(
int,
int,
int i,
char* name) {
290 sprintf(cxr,
"%d", i) ;
void name_r(int l, int k, int j, int i, char *basename) const
Name of the basis function in r ( )
int * b
Array (size: nzone ) of the spectral basis in each domain.
int nzone
Number of domains (zones)
#define R_LEGP
base de Legendre paire (rare) seulement
#define MAX_BASE
Nombre max. de bases differentes.
#define R_CHEBU
base de Chebychev ordinaire (fin), dev. en 1/r
#define R_JACO02
base de Jacobi(0,2) ordinaire (finjac)
#define R_LEGI
base de Legendre impaire (rare) seulement
#define R_CHEBI
base de Cheb. impaire (rare) seulement
#define MSQ_R
Extraction de l'info sur R.
#define R_CHEBPIM_I
Cheb. pair-impair suivant m, impair 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 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 R_CHEB
base de Chebychev ordinaire (fin)
#define R_CHEBP
base de Cheb. paire (rare) seulement
#define R_CHEBPI_P
Cheb. pair-impair suivant l pair pour l=0.