propagate a72750e to SINGLE PRECISION files

langou · langou · commit 9cff38895c42 · 2017-05-22T11:36:14.000+02:00
diff --git 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 @@ LOGICAL FUNCTION SISNAN( SIN )
 *     December 2016
 *
 *     .. Scalar Arguments ..
-      REAL               SIN
+      REAL, INTENT(IN) :: SIN
 *     ..
 *
 *  =====================================================================
diff --git 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 @@ LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 )
 *     December 2016
 *
 *     .. Scalar Arguments ..
-      REAL               SIN1, SIN2
+      REAL, INTENT(IN) :: SIN1, SIN2
 *     ..
 *
 *  =====================================================================
