static LDOUBLE abs_val ( LDOUBLE value ) {
 LDOUBLE result = value ;
 if ( value < 0 ) result = - value ;
 return result ;
 }
static LDOUBLE abs_val ( LDOUBLE value ) {
 LDOUBLE result = value ;
 if ( value < 0 ) result = - value ;
 return result ;
 }