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