/src/igraph/vendor/lapack/disnan.c
Line | Count | Source (jump to first uncovered line) |
1 | | /* -- translated by f2c (version 20191129). |
2 | | You must link the resulting object file with libf2c: |
3 | | on Microsoft Windows system, link with libf2c.lib; |
4 | | on Linux or Unix systems, link with .../path/to/libf2c.a -lm |
5 | | or, if you install libf2c.a in a standard place, with -lf2c -lm |
6 | | -- in that order, at the end of the command line, as in |
7 | | cc *.o -lf2c -lm |
8 | | Source for libf2c is in /netlib/f2c/libf2c.zip, e.g., |
9 | | |
10 | | http://www.netlib.org/f2c/libf2c.zip |
11 | | */ |
12 | | |
13 | | #include "f2c.h" |
14 | | |
15 | | /* > \brief \b DISNAN tests input for NaN. |
16 | | |
17 | | =========== DOCUMENTATION =========== |
18 | | |
19 | | Online html documentation available at |
20 | | http://www.netlib.org/lapack/explore-html/ |
21 | | |
22 | | > \htmlonly |
23 | | > Download DISNAN + dependencies |
24 | | > <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/disnan. |
25 | | f"> |
26 | | > [TGZ]</a> |
27 | | > <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/disnan. |
28 | | f"> |
29 | | > [ZIP]</a> |
30 | | > <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/disnan. |
31 | | f"> |
32 | | > [TXT]</a> |
33 | | > \endhtmlonly |
34 | | |
35 | | Definition: |
36 | | =========== |
37 | | |
38 | | LOGICAL FUNCTION DISNAN( DIN ) |
39 | | |
40 | | DOUBLE PRECISION DIN |
41 | | |
42 | | |
43 | | > \par Purpose: |
44 | | ============= |
45 | | > |
46 | | > \verbatim |
47 | | > |
48 | | > DISNAN returns .TRUE. if its argument is NaN, and .FALSE. |
49 | | > otherwise. To be replaced by the Fortran 2003 intrinsic in the |
50 | | > future. |
51 | | > \endverbatim |
52 | | |
53 | | Arguments: |
54 | | ========== |
55 | | |
56 | | > \param[in] DIN |
57 | | > \verbatim |
58 | | > DIN is DOUBLE PRECISION |
59 | | > Input to test for NaN. |
60 | | > \endverbatim |
61 | | |
62 | | Authors: |
63 | | ======== |
64 | | |
65 | | > \author Univ. of Tennessee |
66 | | > \author Univ. of California Berkeley |
67 | | > \author Univ. of Colorado Denver |
68 | | > \author NAG Ltd. |
69 | | |
70 | | > \date September 2012 |
71 | | |
72 | | > \ingroup auxOTHERauxiliary |
73 | | |
74 | | ===================================================================== */ |
75 | | logical igraphdisnan_(doublereal *din) |
76 | 0 | { |
77 | | /* System generated locals */ |
78 | 0 | logical ret_val; |
79 | | |
80 | | /* Local variables */ |
81 | 0 | extern logical igraphdlaisnan_(doublereal *, doublereal *); |
82 | | |
83 | | |
84 | | /* -- LAPACK auxiliary routine (version 3.4.2) -- |
85 | | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
86 | | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
87 | | September 2012 |
88 | | |
89 | | |
90 | | ===================================================================== */ |
91 | |
|
92 | 0 | ret_val = igraphdlaisnan_(din, din); |
93 | 0 | return ret_val; |
94 | 0 | } /* igraphdisnan_ */ |
95 | | |