diff options
author | Julien Langou <julien.langou@ucdenver.edu> | 2017-05-22 11:35:23 +0200 |
---|---|---|
committer | Julien Langou <julien.langou@ucdenver.edu> | 2017-05-22 11:35:23 +0200 |
commit | 713fe74662424c8943a838b460a167b30912b93f (patch) | |
tree | 634c7ee089176a33069d6a7288d19473bc8e63f1 /SRC | |
parent | 04eeced983cce1e9c0175730e588419b516ab869 (diff) | |
download | lapack-713fe74662424c8943a838b460a167b30912b93f.tar.gz lapack-713fe74662424c8943a838b460a167b30912b93f.tar.bz2 lapack-713fe74662424c8943a838b460a167b30912b93f.zip |
propagate the INTENT(IN) in the header
Diffstat (limited to 'SRC')
-rw-r--r-- | SRC/disnan.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/disnan.f b/SRC/disnan.f index 6d26254b..15110993 100644 --- a/SRC/disnan.f +++ b/SRC/disnan.f @@ -21,7 +21,7 @@ * LOGICAL FUNCTION DISNAN( DIN ) * * .. Scalar Arguments .. -* DOUBLE PRECISION DIN +* DOUBLE PRECISION, INTENT(IN) :: DIN * .. * * |