Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F68408652
dlaisnan.f
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Thu, Jun 27, 06:38
Size
2 KB
Mime Type
text/html
Expires
Sat, Jun 29, 06:38 (2 d)
Engine
blob
Format
Raw Data
Handle
18332606
Attached To
rLAMMPS lammps
dlaisnan.f
View Options
*>
\
brief
\
b
DLAISNAN
tests
input
for
NaN
by
comparing
two
arguments
for
inequality
.
*
*
===========
DOCUMENTATION
===========
*
*
Online
html
documentation
available
at
*
http
:
//
www
.
netlib
.
org
/
lapack
/
explore
-
html
/
*
*>
\
htmlonly
*>
Download
DLAISNAN
+
dependencies
*>
<
a
href
=
"http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaisnan.f"
>
*>
[
TGZ
]
</
a
>
*>
<
a
href
=
"http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaisnan.f"
>
*>
[
ZIP
]
</
a
>
*>
<
a
href
=
"http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaisnan.f"
>
*>
[
TXT
]
</
a
>
*>
\
endhtmlonly
*
*
Definition
:
*
===========
*
*
LOGICAL
FUNCTION
DLAISNAN
(
DIN1
,
DIN2
)
*
*
..
Scalar
Arguments
..
*
DOUBLE PRECISION
DIN1
,
DIN2
*
..
*
*
*>
\
par
Purpose
:
*
=============
*>
*>
\
verbatim
*>
*>
This
routine
is
not
for
general
use
.
It
exists
solely
to
avoid
*>
over
-
optimization
in
DISNAN
.
*>
*>
DLAISNAN
checks
for
NaNs
by
comparing
its
two
arguments
for
*>
inequality
.
NaN
is
the
only
floating
-
point
value
where
NaN
!= NaN
*>
returns
.TRUE.
To
check
for
NaNs
,
pass
the
same
variable
as
both
*>
arguments
.
*>
*>
A
compiler
must
assume
that
the
two
arguments
are
*>
not
the
same
variable
,
and
the
test
will
not
be
optimized
away
.
*>
Interprocedural
or
whole
-
program
optimization
may
delete
this
*>
test
.
The
ISNAN
functions
will
be
replaced
by
the
correct
*>
Fortran
03
intrinsic
once
the
intrinsic
is
widely
available
.
*>
\
endverbatim
*
*
Arguments
:
*
==========
*
*>
\
param
[
in
]
DIN1
*>
\
verbatim
*>
DIN1
is
DOUBLE PRECISION
*>
\
endverbatim
*>
*>
\
param
[
in
]
DIN2
*>
\
verbatim
*>
DIN2
is
DOUBLE PRECISION
*>
Two
numbers
to
compare
for
inequality
.
*>
\
endverbatim
*
*
Authors
:
*
========
*
*>
\
author
Univ
.
of
Tennessee
*>
\
author
Univ
.
of
California
Berkeley
*>
\
author
Univ
.
of
Colorado
Denver
*>
\
author
NAG
Ltd
.
*
*>
\
date
September
2012
*
*>
\
ingroup
auxOTHERauxiliary
*
*
=====================================================================
LOGICAL
FUNCTION
DLAISNAN
(
DIN1
,
DIN2
)
*
*
--
LAPACK
auxiliary
routine
(
version
3.4.2
)
--
*
--
LAPACK
is
a
software
package
provided
by
Univ
.
of
Tennessee
,
--
*
--
Univ
.
of
California
Berkeley
,
Univ
.
of
Colorado
Denver
and
NAG
Ltd
..
--
*
September
2012
*
*
..
Scalar
Arguments
..
DOUBLE PRECISION
DIN1
,
DIN2
*
..
*
*
=====================================================================
*
*
..
Executable
Statements
..
DLAISNAN
=
(
DIN1
.NE.
DIN2
)
RETURN
END
Event Timeline
Log In to Comment