updating parameter definition in the single complex version

jprhyne · jprhyne · commit 1ba075ccd8bf · 2024-10-16T11:40:20.000-06:00
diff --git a/SRC/clarft.f b/SRC/clarft.f
@@ -179,7 +179,7 @@ RECURSIVE SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T,
 *     .. Parameters ..
 *
       COMPLEX           ONE, NEG_ONE, ZERO
-      PARAMETER(ONE=1.0D+0, ZERO = 0.0D+0, NEG_ONE=-1.0D+0)
+      PARAMETER(ONE=1.0E+0, ZERO = 0.0E+0, NEG_ONE=-1.0E+0)
 *
 *     .. Local Scalars ..
 *

Original file line number	Diff line number	Diff line change
`@@ -179,7 +179,7 @@ RECURSIVE SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T,`
`179`	`179`	`* .. Parameters ..`
`180`	`180`	`*`
`181`	`181`	`COMPLEX ONE, NEG_ONE, ZERO`
`182`		`- PARAMETER(ONE=1.0D+0, ZERO = 0.0D+0, NEG_ONE=-1.0D+0)`
	`182`	`+ PARAMETER(ONE=1.0E+0, ZERO = 0.0E+0, NEG_ONE=-1.0E+0)`
`183`	`183`	`*`
`184`	`184`	`* .. Local Scalars ..`
`185`	`185`	`*`