propagate the INTENT(IN) in the header

langou · langou · commit 713fe7466242 · 2017-05-22T11:35:23.000+02:00
diff --git 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
 *       ..
 *
 *

Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,7 @@`
`21`	`21`	`* LOGICAL FUNCTION DISNAN( DIN )`
`22`	`22`	`*`
`23`	`23`	`* .. Scalar Arguments ..`
`24`		`-* DOUBLE PRECISION DIN`
	`24`	`+* DOUBLE PRECISION, INTENT(IN) :: DIN`
`25`	`25`	`* ..`
`26`	`26`	`*`
`27`	`27`	`*`