[BACK]Return to dcabs1.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / blas
File:  [local] / rpl / lapack / blas / dcabs1.f
Revision 1.3: download - view: text, annotated - select for diffs - revision graph
Fri Aug 6 15:32:18 2010 UTC (13 years, 9 months ago) by bertrand
Branches: MAIN
CVS tags: HEAD
Cohérence

    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>