propagate a72750e643027648736f5adb1f89514b1d6e8ae3 to SINGLE PRECISION files

diff --git a/SRC/sisnan.f b/SRC/sisnan.f
index 05f5974..a01f779 100644 (file)
--- a/SRC/sisnan.f
+++ b/SRC/sisnan.f
@@ -21,7 +21,7 @@
 *       LOGICAL FUNCTION SISNAN( SIN )
 *
 *       .. Scalar Arguments ..
-*       REAL               SIN
+*       REAL, INTENT(IN) :: SIN
 *       ..
 *
 *
@@ -65,7 +65,7 @@
 *     December 2016
 *
 *     .. Scalar Arguments ..
-      REAL               SIN
+      REAL, INTENT(IN) :: SIN
 *     ..
 *
 *  =====================================================================

diff --git a/SRC/slaisnan.f b/SRC/slaisnan.f
index 32f723d..7db5b40 100644 (file)
--- a/SRC/slaisnan.f
+++ b/SRC/slaisnan.f
@@ -21,7 +21,7 @@
 *       LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 )
 *
 *       .. Scalar Arguments ..
-*       REAL               SIN1, SIN2
+*       REAL, INTENT(IN) :: SIN1, SIN2
 *       ..
 *
 *
@@ -80,7 +80,7 @@
 *     December 2016
 *
 *     .. Scalar Arguments ..
-      REAL               SIN1, SIN2
+      REAL, INTENT(IN) :: SIN1, SIN2
 *     ..
 *
 *  =====================================================================