23char xpundsdx_1d_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Operators/xpundsdx_1d.C,v 1.3 2014/10/13 08:53:27 j_novak Exp $" ;
56#include "type_parite.h"
65void _xpundsdx_1d_pas_prevu(
int nr,
double* tb,
double *xo) {
66 cout <<
"xpundsdx pas prevu..." << endl ;
67 cout <<
"Nombre de points : " << nr << endl ;
68 cout <<
"Valeurs : " << tb <<
" " << xo <<endl ;
78void _xpundsdx_1d_r_jaco02(
int nr,
double* tb,
double *xo) {
81 for (
int j = 0 ; j < nr-1 ; j++ ) {
83 for (
int n = j+1 ; n < nr ; n++ ) {
88 xo[nr-1] = (nr-1)*tb[nr-1] ;
96void xpundsdx_1d(
int nr,
double** tb,
int base_r)
100 static void (*xpundsdx_1d[
MAX_BASE])(int,
double*,
double *) ;
107 xpundsdx_1d[i] = _xpundsdx_1d_pas_prevu ;
113 double *result =
new double[nr] ;
115 xpundsdx_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)