use INTENT(IN) to avoid violating Fortran aliasing rules

see https://github.com/Reference-LAPACK/lapack/issues/152 for details.

fixes issue #152

diff --git a/SRC/disnan.f b/SRC/disnan.f
index da89158fbc29bce492141f09f07e82ffaa1bc6b0..6d26254bed8332351014e07bf093bfd2060629d5 100644 (file)
--- a/SRC/disnan.f
+++ b/SRC/disnan.f
@@ -65,7 +65,7 @@
 *     December 2016
 *
 *     .. Scalar Arguments ..
-      DOUBLE PRECISION   DIN
+      DOUBLE PRECISION, INTENT(IN) :: DIN
 *     ..
 *
 *  =====================================================================

diff --git a/SRC/dlaisnan.f b/SRC/dlaisnan.f
index 4b5ebb4f545339a6866fdf99f434ae5e3309857e..3886dc512b8a6782a6b325cd450e2bcd8d4902a6 100644 (file)
--- a/SRC/dlaisnan.f
+++ b/SRC/dlaisnan.f
@@ -21,7 +21,7 @@
 *       LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 )
 *
 *       .. Scalar Arguments ..
-*       DOUBLE PRECISION   DIN1, DIN2
+*       DOUBLE PRECISION, INTENT(IN) :: DIN1, DIN2
 *       ..
 *
 *