File:
[local] /
rpl /
lapack /
lapack /
disnan.f
Revision
1.8:
download - view:
text,
annotated -
select for diffs -
revision graph
Tue Dec 21 13:53:27 2010 UTC (13 years, 6 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: LOGICAL FUNCTION DISNAN( DIN )
2: *
3: * -- LAPACK auxiliary routine (version 3.2.2) --
4: * -- LAPACK is a software package provided by Univ. of Tennessee, --
5: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6: * June 2010
7: *
8: * .. Scalar Arguments ..
9: DOUBLE PRECISION DIN
10: * ..
11: *
12: * Purpose
13: * =======
14: *
15: * DISNAN returns .TRUE. if its argument is NaN, and .FALSE.
16: * otherwise. To be replaced by the Fortran 2003 intrinsic in the
17: * future.
18: *
19: * Arguments
20: * =========
21: *
22: * DIN (input) DOUBLE PRECISION
23: * Input to test for NaN.
24: *
25: * =====================================================================
26: *
27: * .. External Functions ..
28: LOGICAL DLAISNAN
29: EXTERNAL DLAISNAN
30: * ..
31: * .. Executable Statements ..
32: DISNAN = DLAISNAN(DIN,DIN)
33: RETURN
34: END
CVSweb interface <joel.bertrand@systella.fr>