00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 #ifdef KR_headers 00007 double f__cabs(); 00008 double z_abs(z) doublecomplex *z; 00009 #else 00010 double f__cabs(double, double); 00011 double z_abs(doublecomplex *z) 00012 #endif 00013 { 00014 return( f__cabs( z->r, z->i ) ); 00015 } 00016 #ifdef __cplusplus 00017 } 00018 #endif