00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 #ifdef KR_headers 00007 double r_abs(x) real *x; 00008 #else 00009 double r_abs(real *x) 00010 #endif 00011 { 00012 if(*x >= 0) 00013 return(*x); 00014 return(- *x); 00015 } 00016 #ifdef __cplusplus 00017 } 00018 #endif