23char sxpundsdx_1d_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Operators/sxpundsdx_1d.C,v 1.3 2014/10/13 08:53:27 j_novak Exp $" ;
56#include "type_parite.h"
59void dsdx_1d(
int,
double**,
int) ;
60void sxpun_1d(
int,
double**,
int) ;
67void _sxpundsdx_1d_pas_prevu(
int nr,
double* tb,
double *xo) {
68 cout <<
"sxpundsdx pas prevu..." << endl ;
69 cout <<
"Nombre de points : " << nr << endl ;
70 cout <<
"Valeurs : " << tb <<
" " << xo <<endl ;
80void _sxpundsdx_1d_r_jaco02(
int nr,
double* tb,
double *xo) {
84 for (
int j=0 ; j<nr ; j++) {
94void sxpundsdx_1d(
int nr,
double** tb,
int base_r)
98 static void (*sxpundsdx_1d[
MAX_BASE])(int,
double*,
double *) ;
105 sxpundsdx_1d[i] = _sxpundsdx_1d_pas_prevu ;
111 double *result =
new double[nr] ;
113 sxpundsdx_1d[base_r](nr, *tb, result) ;
#define MAX_BASE
Nombre max. de bases differentes.
#define R_JACO02
base de Jacobi(0,2) ordinaire (finjac)
#define TRA_R
Translation en R, used for a bitwise shift (in hex)