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