blob: 6b2e7e642180afb97f62166758f1c051191c441c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
LOGICAL FUNCTION SISNAN( SIN )
*
* -- LAPACK auxiliary routine (version 3.2.2) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* June 2010
*
* .. Scalar Arguments ..
REAL SIN
* ..
*
* Purpose
* =======
*
* SISNAN returns .TRUE. if its argument is NaN, and .FALSE.
* otherwise. To be replaced by the Fortran 2003 intrinsic in the
* future.
*
* Arguments
* =========
*
* SIN (input) REAL
* Input to test for NaN.
*
* =====================================================================
*
* .. External Functions ..
LOGICAL SLAISNAN
EXTERNAL SLAISNAN
* ..
* .. Executable Statements ..
SISNAN = SLAISNAN(SIN,SIN)
RETURN
END
|