File:
[local] /
rpl /
lapack /
blas /
dcabs1.f
Revision
1.6:
download - view:
text,
annotated -
select for diffs -
revision graph
Tue Dec 21 13:51:24 2010 UTC (13 years, 4 months ago) by
bertrand
Branches:
MAIN
CVS tags:
rpl-4_1_3,
rpl-4_1_2,
rpl-4_1_1,
rpl-4_1_0,
rpl-4_0_24,
rpl-4_0_22,
rpl-4_0_21,
rpl-4_0_20,
rpl-4_0,
HEAD
Mise à jour de lapack vers la version 3.3.0
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>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dcabs1.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / blas