diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2017-05-22 11:36:14 +0200 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2017-05-22 11:36:14 +0200 |
| commit | 9cff38895c42dc437d4830c5df4afa5c9de83f00 (patch) | |
| tree | 59e3f07276305e4e46afb83200db270d93a3c07f /SRC | |
| parent | 713fe74662424c8943a838b460a167b30912b93f (diff) | |
| download | lapack-9cff38895c42dc437d4830c5df4afa5c9de83f00.tar.gz lapack-9cff38895c42dc437d4830c5df4afa5c9de83f00.tar.bz2 lapack-9cff38895c42dc437d4830c5df4afa5c9de83f00.zip | |
propagate a72750e643027648736f5adb1f89514b1d6e8ae3 to SINGLE PRECISION files
Diffstat (limited to 'SRC')
| -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 * .. * * ===================================================================== |