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)8 doublereal 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