#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 |