diff options
-rw-r--r-- | SRC/sisnan.f | 4 | ||||
-rw-r--r-- | SRC/slaisnan.f | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/SRC/sisnan.f b/SRC/sisnan.f index 05f59743..a01f7798 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 32f723d5..7db5b401 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 * .. * * ===================================================================== |