24 char binhor_viriel_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Bin_hor/binhor_viriel.C,v 1.5 2014/10/13 08:52:42 j_novak Exp $" ;
64 double erreur = (2*(*devel_psi[1])(nz1-1, 0, 0, 0)
65 + (*devel_n[1])(nz1-1, 0, 0, 0))/fabs ((*devel_n[1])(nz1-1, 0, 0, 0)) ;
82 (2*(*devel_psi_un[1])(nz_un-1, 0, 0, 0)+
83 2*(*devel_psi_deux[1])(nz_deux-1, 0, 0, 0)+
84 (*devel_n_deux[1])(nz_deux-1, 0, 0, 0) +
85 (*devel_n_un[1])(nz_un-1, 0, 0, 0))
86 / fabs ((*devel_n_deux[1])(nz_deux-1, 0, 0, 0) +
87 (*devel_n_un[1])(nz_un-1, 0, 0, 0)) ;