lapack/native: remove unused package-wide constants smlnum and bignum

vladimir-ch · vladimir-ch · commit 0b075b7df104 · 2017-04-25T22:54:19.000+02:00
diff --git a/native/dlatrs.go b/native/dlatrs.go
@@ -51,6 +51,8 @@ func (impl Implementation) Dlatrs(uplo blas.Uplo, trans blas.Transpose, diag bla
 	if n == 0 {
 		return 0
 	}
+	smlnum := dlamchS / dlamchP
+	bignum := 1 / smlnum
 	scale = 1
 	bi := blas64.Implementation()
 	if !normin {
diff --git a/native/general.go b/native/general.go
@@ -127,7 +127,4 @@ const (
 	// 1/dlamchS does not overflow, or also the smallest normal number.
 	// For IEEE this is 2^{-1022}.
 	dlamchS = 1.0 / (1 << 256) / (1 << 256) / (1 << 256) / (1 << 254)
-
-	smlnum = dlamchS / dlamchP
-	bignum = 1 / smlnum
 )

Original file line number	Diff line number	Diff line change
`@@ -51,6 +51,8 @@ func (impl Implementation) Dlatrs(uplo blas.Uplo, trans blas.Transpose, diag bla`
`51`	`51`	`if n == 0 {`
`52`	`52`	`return 0`
`53`	`53`	`}`
	`54`	`+ smlnum := dlamchS / dlamchP`
	`55`	`+ bignum := 1 / smlnum`
`54`	`56`	`scale = 1`
`55`	`57`	`bi := blas64.Implementation()`
`56`	`58`	`if !normin {`
Original file line number	Diff line number	Diff line change
`@@ -127,7 +127,4 @@ const (`
`127`	`127`	`// 1/dlamchS does not overflow, or also the smallest normal number.`
`128`	`128`	`// For IEEE this is 2^{-1022}.`
`129`	`129`	`dlamchS = 1.0 / (1 << 256) / (1 << 256) / (1 << 256) / (1 << 254)`
`130`		`-`
`131`		`- smlnum = dlamchS / dlamchP`
`132`		`- bignum = 1 / smlnum`
`133`	`130`	`)`