Annotation of rpl/lapack/blas/dcabs1.f, revision 1.2
1.1 bertrand 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
CVSweb interface <joel.bertrand@systella.fr>