63 for(
int i = 1; i<=dimension; i++ ){
64 double elem( error( i, i ) );
69 std::cout <<
"%ERROR detected at Ext_err_valid: error("
70 << i <<
"," << i <<
") = " << elem <<
" < 0.0. "
71 <<
"Force to 0.0." << std::endl;
74 }
else if( elem > Large ){
77 std::cout <<
"%ERROR detected at Ext_err_valid: error("
78 << i <<
"," << i <<
") = " << elem <<
" > " << Large
79 <<
". Force to " << Large << std::endl;
81 error( i, i ) = Large;
84 if( !trace ) valid = 0;