1 #include "f2c.h" 2 3 integer i_sign(integer * a,integer * b)4 i_sign (integer * a, integer * b) 5 { 6 integer x; 7 x = (*a >= 0 ? *a : -*a); 8 return (*b >= 0 ? x : -x); 9 } 10