26char scalar_raccord_externe_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Tensor/Scalar/scalar_raccord_externe.C,v 1.4 2014/10/13 08:53:47 j_novak Exp $" ;
60int cnp (
int n,
int p) ;
75 int zone =
mp->get_mg()->get_nzone()-2 ;
76 int nt =
mp->get_mg()->get_nt(
zone) ;
77 int np =
mp->get_mg()->get_np(
zone) ;
78 int nr =
mp->get_mg()->get_nr(
zone) ;
83 cout <<
"Le mapping doit etre affine" <<
endl ;
92 double new_alpha = -alpha/(beta*beta-alpha*alpha) ;
93 double new_beta = beta/(beta*beta-alpha*alpha) ;
101 tksi.set_etat_qcq() ;
123 ksiu.set_etat_qcq() ;
148 int*
dege =
new int [3] ;
150 double*
ti =
new double [nr] ;
153 for (
int i=0 ;
i<nr ;
i++)
156 for (
int i=0 ;
i<nr ;
i++)
163 double *
auxi =
new double [1] ;
170 for (
int k=0 ;
k<np+2 ;
k++)
171 for (
int j=0 ;
j<nt ;
j++)
175 if (l_quant <=
lmax) {
184 for (
int m=0 ;
m<nr ;
m++)
202 for (
int i=0 ;
i<nr ;
i++) {
217 for (
int k=0 ;
k<np+2 ;
k++)
218 for (
int j=0 ;
j<nt ;
j++)
219 for (
int i=0 ;
i<nr ;
i++)
Bases of the spectral expansions.
Time evolution with partial storage (*** under development ***).
const double * get_beta() const
Returns the pointer on the array beta.
const double * get_alpha() const
Returns the pointer on the array alpha.
Tbl & set(int l)
Read/write of the Tbl containing the coefficients in a given domain.
Tbl ** t
Array (size nzone ) of pointers on the Tbl 's which contain the spectral coefficients in each domain.
void set_etat_qcq()
Sets the logical state to ETATQCQ (ordinary state).
friend Scalar cos(const Scalar &)
Cosine.
void raccord_externe(int puis, int nbre, int lmax)
Matching of the external domain with the outermost shell.
void set_dzpuis(int)
Modifies the dzpuis flag.
friend Scalar sqrt(const Scalar &)
Square root.
friend Scalar pow(const Scalar &, int)
Power .
Valeur va
The numerical value of the Scalar
void set_etat_qcq()
Sets the logical state to ETATQCQ (ordinary state).
double & set(int i)
Read/write of a particular element (index i) (1D case)
void set_etat_cf_qcq()
Sets the logical state to ETATQCQ (ordinary state) for values in the configuration space (Mtbl_cf c_c...
void ylm()
Computes the coefficients of *this.
Mtbl_cf * c_cf
Coefficients of the spectral expansion of the function.
void coef() const
Computes the coeffcients of *this.
void ylm_i()
Inverse of ylm()
Base_val base
Bases on which the spectral expansion is performed.
const Map *const mp
Mapping on which the numerical values at the grid points are defined.