| #include "datatypes.h" | |
| doublereal scabs1_(complex *z__) { | |
| /* System generated locals */ | |
| real ret_val, r__1, r__2; | |
| /* Purpose | |
| ======= | |
| SCABS1 computes absolute value of a complex number */ | |
| ret_val = (r__1 = z__->r, dabs(r__1)) + (r__2 = z__->i, dabs(r__2)); | |
| return ret_val; | |
| } /* scabs1_ */ |