diff options
| author | jofret | 2009-04-28 07:17:00 +0000 |
|---|---|---|
| committer | jofret | 2009-04-28 07:17:00 +0000 |
| commit | 8c8d2f518968ce7057eec6aa5cd5aec8faab861a (patch) | |
| tree | 3dd1788b71d6a3ce2b73d2d475a3133580e17530 /src/lib/lapack/disnan.f | |
| parent | 9f652ffc16a310ac6641a9766c5b9e2671e0e9cb (diff) | |
| download | scilab2c-8c8d2f518968ce7057eec6aa5cd5aec8faab861a.tar.gz scilab2c-8c8d2f518968ce7057eec6aa5cd5aec8faab861a.tar.bz2 scilab2c-8c8d2f518968ce7057eec6aa5cd5aec8faab861a.zip | |
Moving lapack to right place
Diffstat (limited to 'src/lib/lapack/disnan.f')
| -rw-r--r-- | src/lib/lapack/disnan.f | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/lib/lapack/disnan.f b/src/lib/lapack/disnan.f deleted file mode 100644 index 52003561..00000000 --- a/src/lib/lapack/disnan.f +++ /dev/null @@ -1,33 +0,0 @@ - LOGICAL FUNCTION DISNAN(DIN) -* -* -- LAPACK auxiliary routine (version 3.1) -- -* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 -* -* .. Scalar Arguments .. - DOUBLE PRECISION DIN -* .. -* -* Purpose -* ======= -* -* DISNAN returns .TRUE. if its argument is NaN, and .FALSE. -* otherwise. To be replaced by the Fortran 2003 intrinsic in the -* future. -* -* Arguments -* ========= -* -* DIN (input) DOUBLE PRECISION -* Input to test for NaN. -* -* ===================================================================== -* -* .. External Functions .. - LOGICAL DLAISNAN - EXTERNAL DLAISNAN -* .. -* .. Executable Statements .. - DISNAN = DLAISNAN(DIN,DIN) - RETURN - END |