]>
gcc.gnu.org Git - gcc.git/blob - gcc/f/runtime/libF77/d_sign.c
4 double d_sign(a
,b
) doublereal
*a
, *b
;
6 double d_sign(doublereal
*a
, doublereal
*b
)
10 x
= (*a
>= 0 ? *a
: - *a
);
11 return( *b
>= 0 ? x
: -x
);
This page took 0.036917 seconds and 5 git commands to generate.