21 char ope_sec_order_r2_cl_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Ope_elementary/Ope_sec_order_r2/ope_sec_order_r2_cl.C,v 1.3 2014/10/13 08:53:36 j_novak Exp $" ;
32 #include "ope_elementary.h"
41 Matrice _cl_sec_order_r2_pas_prevu (
const Matrice& so) {
42 cout <<
"CL Sec_order_r2 not implemented" << endl ;
52 Matrice _cl_sec_order_r2_r_cheb (
const Matrice& source) {
55 assert (n==source.get_dim(1)) ;
57 Matrice barre(source) ;
59 for (
int i=0 ; i<n-2 ; i++) {
60 for (
int j=0 ; j<n ; j++)
61 barre.set(i, j) = ((1+dirac)*source(i, j)-source(i+2, j))
67 for (
int i=0 ; i<n-4 ; i++)
68 for (
int j=0 ; j<n ; j++)
69 res.set(i, j) = barre(i, j)-barre(i+2, j) ;
90 cl_sec_order_r2[i] = _cl_sec_order_r2_pas_prevu ;
93 cl_sec_order_r2[
R_CHEB >>
TRA_R] = _cl_sec_order_r2_r_cheb ;