1 /* ../netlib/dlaisnan.f -- translated by f2c (version 20100827). You must link the resulting object file with libf2c: on Microsoft Windows system, link with libf2c.lib;
2 on Linux or Unix systems, link with .../path/to/libf2c.a -lm or, if you install libf2c.a in a standard place, with -lf2c -lm -- in that order, at the end of the command line, as in cc *.o -lf2c -lm Source for libf2c is in /netlib/f2c/libf2c.zip, e.g., http://www.netlib.org/f2c/libf2c.zip */
3 #include "FLA_f2c.h" /* > \brief \b DLAISNAN tests input for NaN by comparing two arguments for inequality. */
4 /* =========== DOCUMENTATION =========== */
5 /* Online html documentation available at */
6 /* http://www.netlib.org/lapack/explore-html/ */
7 /* > \htmlonly */
8 /* > Download DLAISNAN + dependencies */
9 /* > <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaisna n.f"> */
10 /* > [TGZ]</a> */
11 /* > <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaisna n.f"> */
12 /* > [ZIP]</a> */
13 /* > <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaisna n.f"> */
14 /* > [TXT]</a> */
15 /* > \endhtmlonly */
16 /* Definition: */
17 /* =========== */
18 /* LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) */
19 /* .. Scalar Arguments .. */
20 /* DOUBLE PRECISION DIN1, DIN2 */
21 /* .. */
22 /* > \par Purpose: */
23 /* ============= */
24 /* > */
25 /* > \verbatim */
26 /* > */
27 /* > This routine is not for general use. It exists solely to avoid */
28 /* > over-optimization in DISNAN. */
29 /* > */
30 /* > DLAISNAN checks for NaNs by comparing its two arguments for */
31 /* > inequality. NaN is the only floating-point value where NaN != NaN */
32 /* > returns .TRUE. To check for NaNs, pass the same variable as both */
33 /* > arguments. */
34 /* > */
35 /* > A compiler must assume that the two arguments are */
36 /* > not the same variable, and the test will not be optimized away. */
37 /* > Interprocedural or whole-program optimization may delete this */
38 /* > test. The ISNAN functions will be replaced by the correct */
39 /* > Fortran 03 intrinsic once the intrinsic is widely available. */
40 /* > \endverbatim */
41 /* Arguments: */
42 /* ========== */
43 /* > \param[in] DIN1 */
44 /* > \verbatim */
45 /* > DIN1 is DOUBLE PRECISION */
46 /* > \endverbatim */
47 /* > */
48 /* > \param[in] DIN2 */
49 /* > \verbatim */
50 /* > DIN2 is DOUBLE PRECISION */
51 /* > Two numbers to compare for inequality. */
52 /* > \endverbatim */
53 /* Authors: */
54 /* ======== */
55 /* > \author Univ. of Tennessee */
56 /* > \author Univ. of California Berkeley */
57 /* > \author Univ. of Colorado Denver */
58 /* > \author NAG Ltd. */
59 /* > \date September 2012 */
60 /* > \ingroup auxOTHERauxiliary */
61 /* ===================================================================== */
dlaisnan_(doublereal * din1,doublereal * din2)62 logical dlaisnan_(doublereal *din1, doublereal *din2)
63 {
64 /* System generated locals */
65 logical ret_val;
66 /* -- LAPACK auxiliary routine (version 3.4.2) -- */
67 /* -- LAPACK is a software package provided by Univ. of Tennessee, -- */
68 /* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- */
69 /* September 2012 */
70 /* .. Scalar Arguments .. */
71 /* .. */
72 /* ===================================================================== */
73 /* .. Executable Statements .. */
74 ret_val = *din1 != *din2;
75 return ret_val;
76 }
77 /* dlaisnan_ */
78