1 /* -- translated by f2c (version 19940927). 2 You must link the resulting object file with the libraries: 3 -lf2c -lm (in that order) 4 */ 5 6 #include "f2c.h" 7 dcabs1_(doublecomplex * z)8doublereal dcabs1_(doublecomplex *z) 9 { 10 /* >>Start of File<< 11 12 System generated locals */ 13 doublereal ret_val; 14 static doublecomplex equiv_0[1]; 15 16 /* Local variables */ 17 #define t ((doublereal *)equiv_0) 18 #define zz (equiv_0) 19 20 zz->r = z->r, zz->i = z->i; 21 ret_val = abs(t[0]) + abs(t[1]); 22 return ret_val; 23 } /* dcabs1_ */ 24 25 #undef zz 26 #undef t 27 28 29