58bool Ext_err_valid(
bool msg, HepSymMatrix& error,
const int dimension ) {
62 for (
int i = 1; i <= dimension; i++ )
64 double elem( error( i, i ) );
71 std::cout <<
"%ERROR detected at Ext_err_valid: error(" << i <<
"," << i
72 <<
") = " << elem <<
" < 0.0. "
73 <<
"Force to 0.0." << std::endl;
77 else if ( elem > Large )
82 std::cout <<
"%ERROR detected at Ext_err_valid: error(" << i <<
"," << i
83 <<
") = " << elem <<
" > " << Large <<
". Force to " << Large << std::endl;
85 error( i, i ) = Large;
88 if ( !trace ) valid = 0;