| 6621 | } /* daxpy_ */ |
| 6622 | |
| 6623 | doublereal dcabs1_(doublecomplex *z__) |
| 6624 | { |
| 6625 | /* System generated locals */ |
| 6626 | doublereal ret_val, d__1, d__2; |
| 6627 | |
| 6628 | /* |
| 6629 | Purpose |
| 6630 | ======= |
| 6631 | |
| 6632 | DCABS1 computes absolute value of a double complex number |
| 6633 | |
| 6634 | ===================================================================== |
| 6635 | */ |
| 6636 | |
| 6637 | |
| 6638 | ret_val = (d__1 = z__->r, abs(d__1)) + (d__2 = d_imag(z__), abs(d__2)); |
| 6639 | return ret_val; |
| 6640 | } /* dcabs1_ */ |
| 6641 | |
| 6642 | /* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx, |
| 6643 | doublereal *dy, integer *incy) |