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