blob: 9eaea8fcecff3ee7190d092896d0ac21f9690187 [file] [log] [blame]
#include "datatypes.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