From: Julien Langou <julien.langou@ucdenver.edu>
Date: Mon, 22 May 2017 09:35:23 +0000 (+0200)
Subject: propagate the INTENT(IN) in the header
X-Git-Tag: submit/tizen/20180313.231549~16
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=713fe74662424c8943a838b460a167b30912b93f;p=platform%2Fupstream%2Flapack.git

propagate the INTENT(IN) in the header
---

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
 *       ..
 *
 *