29 lines
528 B
C
29 lines
528 B
C
|
/* -- translated by f2c (version 19940927).
|
||
|
|
You must link the resulting object file with the libraries:
|
||
|
|
-lf2c -lm (in that order)
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "f2c.h"
|
||
|
|
|
||
|
|
doublereal dcabs1_(doublecomplex *z)
|
||
|
|
{
|
||
|
|
/* >>Start of File<<
|
||
|
|
|
||
|
|
System generated locals */
|
||
|
|
doublereal ret_val;
|
||
|
|
static doublecomplex equiv_0[1];
|
||
|
|
|
||
|
|
/* Local variables */
|
||
|
|
#define t ((doublereal *)equiv_0)
|
||
|
|
#define zz (equiv_0)
|
||
|
|
|
||
|
|
zz->r = z->r, zz->i = z->i;
|
||
|
|
ret_val = abs(t[0]) + abs(t[1]);
|
||
|
|
return ret_val;
|
||
|
|
} /* dcabs1_ */
|
||
|
|
|
||
|
|
#undef zz
|
||
|
|
#undef t
|
||
|
|
|
||
|
|
|