From 9cff38895c42dc437d4830c5df4afa5c9de83f00 Mon Sep 17 00:00:00 2001 From: Julien Langou Date: Mon, 22 May 2017 11:36:14 +0200 Subject: [PATCH] propagate a72750e643027648736f5adb1f89514b1d6e8ae3 to SINGLE PRECISION files --- SRC/sisnan.f | 4 ++-- SRC/slaisnan.f | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SRC/sisnan.f b/SRC/sisnan.f index 05f5974..a01f779 100644 --- 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 --- 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 * .. * * ===================================================================== -- 2.7.4