Removed now-unused SIGN intrinsic.

matcross · matcross · commit 1c1bd1e67bf7 · 2020-03-30T15:21:58.000+01:00
diff --git a/SRC/dlacn2.f b/SRC/dlacn2.f
@@ -171,7 +171,7 @@ SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE )
       EXTERNAL           DCOPY
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          ABS, DBLE, NINT, SIGN
+      INTRINSIC          ABS, DBLE, NINT
 *     ..
 *     .. Executable Statements ..
 *

Original file line number	Diff line number	Diff line change
`@@ -171,7 +171,7 @@ SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE )`
`171`	`171`	`EXTERNAL DCOPY`
`172`	`172`	`* ..`
`173`	`173`	`* .. Intrinsic Functions ..`
`174`		`- INTRINSIC ABS, DBLE, NINT, SIGN`
	`174`	`+ INTRINSIC ABS, DBLE, NINT`
`175`	`175`	`* ..`
`176`	`176`	`* .. Executable Statements ..`
`177`	`177`	`*`