Method sign

Singular/svd/libs/ap.cpp:126–131

standard functions

// standard functions
//
int ap::sign(double x)
{
    if( x>0 ) return  1;
    if( x<0 ) return -1;
    return 0;
}

double ap::randomreal()
{