23 char bhole_pseudo_viriel_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Bhole_binaire/bhole_pseudo_viriel.C,v 1.5 2014/10/13 08:52:40 j_novak Exp $" ;
86 double erreur = (2*(*devel_psi[1])(nz-1, 0, 0, 0)
87 + (*devel_n[1])(nz-1, 0, 0, 0))/fabs ((*devel_n[1])(nz-1, 0, 0, 0)) ;
104 (2*(*devel_psi_un[1])(nz_un-1, 0, 0, 0)+
105 2*(*devel_psi_deux[1])(nz_deux-1, 0, 0, 0)+
106 (*devel_n_deux[1])(nz_deux-1, 0, 0, 0) +
107 (*devel_n_un[1])(nz_un-1, 0, 0, 0))
108 / fabs ((*devel_n_deux[1])(nz_deux-1, 0, 0, 0) +
109 (*devel_n_un[1])(nz_un-1, 0, 0, 0)) ;