Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kcc-5/lib/pml/dsign.c
There are 5 other files named dsign.c in the archive. Click here to see a list.
/*
* +++ NAME +++
*
* DSIGN Transfer of sign
*
* +++ INDEX +++
*
* DSIGN
* machine independent routines
* math libraries
*
* +++ DESCRIPTION +++
*
* Returns first argument with same sign as second argument.
*
* +++ USAGE +++
*
* double dsign(x,y)
* double x;
* double y;
*
* +++ PROGRAMMER +++
*
* Fred Fish
* Goodyear Aerospace Corp, Arizona Div.
* (602) 932-7000 work
* (602) 894-6881 home
*
* ---
*/
/*)LIBRARY
*/
#include <stdio.h>
#include "c:pmluse.h"
#include "pml.h"
double dsign(x,y)
double x;
double y;
{
if (x > 0.0) {
if (y > 0.0) {
return (x);
} else {
return (-x);
}
} else {
if (y < 0.0) {
return (x);
} else {
return (-x);
}
}
}