Return to dcabs1.f CVS log | Up to [local] / rpl / lapack / blas |
Commit initial.
1: DOUBLE PRECISION FUNCTION DCABS1(Z) 2: * .. Scalar Arguments .. 3: DOUBLE COMPLEX Z 4: * .. 5: * .. 6: * Purpose 7: * ======= 8: * 9: * DCABS1 computes absolute value of a double complex number 10: * 11: * ===================================================================== 12: * 13: * .. Intrinsic Functions .. 14: INTRINSIC ABS,DBLE,DIMAG 15: * 16: DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z)) 17: RETURN 18: END