25char op_sxp12_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Operators/op_sxp12.C,v 1.4 2014/10/13 08:53:26 j_novak Exp $" ;
89void sxp12_1d(
int ,
double **,
int ) ;
95void _sxp12_pas_prevu(Tbl * tb,
int& base) {
96 cout <<
"sxp12 pas prevu..." << endl ;
97 cout <<
"Tbl: " << tb <<
" base: " << base << endl ;
106void _sxp12_identite(Tbl* ,
int& ) {
114void _sxp12_r_jaco02(Tbl* tb,
int& )
117 if (tb->get_etat() == ETATZERO) {
122 int nr = (tb->dim).dim[0] ;
123 int nt = (tb->dim).dim[1] ;
124 int np = (tb->dim).dim[2] ;
128 double* xo =
new double [tb->get_taille()];
131 for (
int i=0; i<tb->get_taille(); i++) {
140 int borne_phi = np + 1 ;
145 for (
int k=0 ; k< borne_phi ; k++)
151 for (
int j=0 ; j<nt ; j++) {
153 double** tb1 =
new double*[nr] ;
154 for (
int i = 0 ; i<nr ; i++ ) {
158 for (
int i = 0 ; i<nr ; i++ ) {
#define R_JACO02
base de Jacobi(0,2) ordinaire (finjac)
#define TRA_R
Translation en R, used for a bitwise shift (in hex)