projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 04eeced)
propagate the INTENT(IN) in the header
authorJulien Langou <julien.langou@ucdenver.edu>
Mon, 22 May 2017 09:35:23 +0000 (11:35 +0200)
committerJulien Langou <julien.langou@ucdenver.edu>
Mon, 22 May 2017 09:35:23 +0000 (11:35 +0200)
SRC/disnan.f patch | blob | history

diff --git a/SRC/disnan.f b/SRC/disnan.f
index 6d26254..1511099 100644 (file)
--- 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
 *       ..
 *
 *
Domain: System / Base;