Annotation of rpl/lapack/blas/dcabs1.f, revision 1.1
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>