23char sxp12_1d_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Operators/sxp12_1d.C,v 1.3 2014/10/13 08:53:27 j_novak Exp $" ;
57#include "type_parite.h"
61void sxpun_1d(
int,
double **,
int) ;
67void _sxp12_1d_pas_prevu(
int nr,
double* tb,
double *res) {
68 cout <<
"sxp12 pas prevu..." << tb <<
" " << res << endl ;
69 cout <<
"nr : " << nr << endl ;
78void _sxp12_1d_r_jaco02(
int nr,
double* tb,
double *xo) {
83 for (
int i = 0 ; i<nr ; i++) {
93void sxp12_1d(
int nr,
double **tb,
int base_r)
97static void (*sxp12_1d[
MAX_BASE])(int,
double *,
double*) ;
104 sxp12_1d[i] = _sxp12_1d_pas_prevu ;
110 double *result =
new double[nr] ;
111 sxp12_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)