Return to dcabs1.f CVS log

Up to [local] / rpl / lapack / blas

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