From 8c8d2f518968ce7057eec6aa5cd5aec8faab861a Mon Sep 17 00:00:00 2001
From: jofret
Date: Tue, 28 Apr 2009 07:17:00 +0000
Subject: Moving lapack to right place

---
 src/lib/lapack/disnan.f | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 src/lib/lapack/disnan.f

(limited to 'src/lib/lapack/disnan.f')

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
-- 
cgit