diff options
| author | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
| commit | ff981f106bde4ce6a74aa4f4a572c943f5a395b2 (patch) | |
| tree | a386cad907bcaefd6893535c31d67ec9468e693e /SRC/sisnan.f | |
| parent | e58b61578b55644f6391f3333262b72c1dc88437 (diff) | |
| download | lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.gz lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.bz2 lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.zip | |
Diffstat (limited to 'SRC/sisnan.f')
| -rw-r--r-- | SRC/sisnan.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/SRC/sisnan.f b/SRC/sisnan.f index 352d70ef..d08b5696 100644 --- a/SRC/sisnan.f +++ b/SRC/sisnan.f @@ -1,12 +1,11 @@ - FUNCTION SISNAN( SIN ) - LOGICAL SISNAN + LOGICAL FUNCTION SISNAN(SIN) * -* -- LAPACK auxiliary routine (version 3.1) -- +* -- LAPACK auxiliary routine (version 3.2) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * November 2006 * * .. Scalar Arguments .. - REAL SIN + REAL SIN * .. * * Purpose @@ -29,5 +28,6 @@ EXTERNAL SLAISNAN * .. * .. Executable Statements .. - SISNAN = SLAISNAN( SIN, SIN ) - END FUNCTION + SISNAN = SLAISNAN(SIN,SIN) + RETURN + END |