20 #include "headcpp.hpp"
21 #include "spheric_symphi.hpp"
22 #include "array_math.hpp"
24 #include "tensor_impl.hpp"
59 cerr <<
"Unknow phi basis in Domain_compact_symphi::nbr_unknowns_val_domain" << endl ;
68 if ((j==0) && (mquant>0))
72 if ((j==
nbr_coefs(1)-1) || ((j==0) && (mquant>0)))
76 if (((j==1) && (mquant>1)) || (j==0) || (j==
nbr_coefs(1)-1))
80 if (((j==0) && (mquant>1)) || (j==
nbr_coefs(1)-1))
84 cerr <<
"Unknow theta basis in Domain_compact_symphi::nbr_unknowns_val_domain" << endl ;
97 #ifndef REMOVE_ALL_CHECKS
99 if ((bound!=OUTER_BC) && (bound!=INNER_BC)) {
100 cerr <<
"Unknown boundary in Domain_compact_symphi::nbr_conditions_boundary" << endl ;
105 int size = (n_cmp==-1) ? tt.
get_n_comp() : n_cmp ;
121 else for (
int i=0 ; i<n_cmp ; i++) {
122 if ((*p_cmp[i])(0)==1)
124 if ((*p_cmp[i])(0)==2)
126 if ((*p_cmp[i])(0)==3)
132 #ifndef REMOVE_ALL_CHECKS
134 cerr <<
"Unknown type of vector Domain_compact_symphi::nbr_conditions_boundary" << endl ;
152 else for (
int i=0 ; i<n_cmp ; i++) {
153 if (((*p_cmp[i])(0)==1) && ((*p_cmp[i])(1)==1))
155 if (((*p_cmp[i])(0)==1) && ((*p_cmp[i])(1)==2))
157 if (((*p_cmp[i])(0)==1) && ((*p_cmp[i])(1)==3))
159 if (((*p_cmp[i])(0)==2) && ((*p_cmp[i])(1)==2))
161 if (((*p_cmp[i])(0)==2) && ((*p_cmp[i])(1)==3))
163 if (((*p_cmp[i])(0)==3) && ((*p_cmp[i])(1)==3))
181 else for (
int i=0 ; i<n_cmp ; i++) {
182 if (((*p_cmp[i])(0)==1) && ((*p_cmp[i])(1)==1))
184 if (((*p_cmp[i])(0)==1) && ((*p_cmp[i])(1)==2))
186 if (((*p_cmp[i])(0)==1) && ((*p_cmp[i])(1)==3))
188 if (((*p_cmp[i])(0)==1) && ((*p_cmp[i])(1)==1))
190 if (((*p_cmp[i])(0)==2) && ((*p_cmp[i])(1)==2))
192 if (((*p_cmp[i])(0)==2) && ((*p_cmp[i])(1)==3))
194 if (((*p_cmp[i])(0)==3) && ((*p_cmp[i])(1)==1))
196 if (((*p_cmp[i])(0)==3) && ((*p_cmp[i])(1)==2))
198 if (((*p_cmp[i])(0)==3) && ((*p_cmp[i])(1)==3))
203 #ifndef REMOVE_ALL_CHECKS
205 cerr <<
"Unknown type of 2-tensor Domain_compact_symphi::nbr_conditions_boundary" << endl ;
212 cerr <<
"Valence " << val <<
" not implemented in Domain_compact_symphi::nbr_conditions_boundary" << endl ;
reference set(const Index &pos)
Read/write of an element.
Bases_container bases_1d
Arrays containing the various basis of decomposition.
int get_basis(int nd) const
Read only the basis in a given domain.
virtual Array< int > nbr_conditions_boundary(const Tensor &, int, int, int n_cmp=-1, Array< int > **p_cmp=0x0) const
Computes number of discretized equations associated with a given tensorial equation on a boundary.
int nbr_conditions_val_domain_boundary(const Val_domain &eq) const
Computes number of discretized equations associated with a given equation on a boundary.
Dim_array nbr_coefs
Number of coefficients.
const Base_tensor & get_basis() const
Returns the vectorial basis (triad) on which the components are defined.
int get_n_comp() const
Returns the number of stored components.
int get_valence() const
Returns the valence.
Class for storing the basis of decompositions of a field and its values on both the configuration and...
const Base_spectral & get_base() const
Returns the basis of decomposition.