propagate the INTENT(IN) in the header

diff --git a/SRC/disnan.f b/SRC/disnan.f
index 6d26254bed8332351014e07bf093bfd2060629d5..1511099314a0623e9a052c538176577381d4c182 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
 *       ..
 *
 *