23 char 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"
65 void _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 ;
78 void _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] ;
96 void 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) ;