32char tensor_sym_arithm_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Tensor/tensor_sym_arithm.C,v 1.3 2014/10/13 08:53:44 j_novak Exp $" ;
73 *(
tt.get_triad()),
tt.sym_index1(),
tt.sym_index2()) ;
75 for (
int ic=0 ;
ic<
res.get_n_comp() ;
ic++) {
90 assert (
t1.get_valence() ==
t2.get_valence()) ;
92 assert ( *(
t1.get_triad()) == *(
t2.get_triad()) ) ;
94 for (
int id=0 ;
id<
t1.get_valence() ;
id++)
95 assert(
t1.get_index_type(
id) ==
t2.get_index_type(
id)) ;
97 int ids1 =
t1.sym_index1() ;
98 int ids2 =
t1.sym_index2() ;
106 for (
int ic=0 ;
ic<
res.get_n_comp() ;
ic++) {
121 assert (
t1.get_valence() ==
t2.get_valence()) ;
123 assert ( *(
t1.get_triad()) == *(
t2.get_triad()) ) ;
125 for (
int id=0 ;
id<
t1.get_valence() ;
id++)
126 assert(
t1.get_index_type(
id) ==
t2.get_index_type(
id)) ;
128 int ids1 =
t1.sym_index1() ;
129 int ids2 =
t1.sym_index2() ;
137 for (
int ic=0 ;
ic<
res.get_n_comp() ;
ic++) {
156 if (
t1.get_etat() == ETATUN)
return t2 ;
159 *(
t2.get_triad()),
t2.sym_index1(),
t2.sym_index2()) ;
161 for (
int ic=0 ;
ic<
res.get_n_comp() ;
ic++) {
180 *(
tt.get_triad()),
tt.sym_index1(),
tt.sym_index2()) ;
182 for (
int ic=0 ;
ic<
res.get_n_comp() ;
ic++) {
214 assert(
s2.get_etat() != ETATNONDEF) ;
218 if (
s2.get_etat() == ETATZERO) {
219 cout <<
"Division by 0 in Tensor_sym / Scalar !" <<
endl ;
223 if (
s2.get_etat() == ETATUN)
return t1 ;
226 *(
t1.get_triad()),
t1.sym_index1(),
t1.sym_index2()) ;
228 for (
int ic=0 ;
ic<
res.get_n_comp() ;
ic++) {
240 if ( x ==
double(0) ) {
241 cout <<
"Division by 0 in Tensor_sym / double !" <<
endl ;
245 if ( x ==
double(1) )
return tt ;
248 *(
tt.get_triad()),
tt.sym_index1(),
tt.sym_index2()) ;
250 for (
int ic=0 ;
ic<
res.get_n_comp() ;
ic++) {
Time evolution with partial storage (*** under development ***).
Basic integer array class.
Tensor field of valence 0 (or component of a tensorial field).
Symmetric tensors (with respect to two of their arguments).
Base_val operator*(const Base_val &, const Base_val &)
This operator is used when calling multiplication or division of Valeur .
Cmp operator-(const Cmp &)
- Cmp
Cmp operator/(const Cmp &, const Cmp &)
Cmp / Cmp.
Cmp operator+(const Cmp &)