add _AA for NB query

iyamazaki · iyamazaki · commit 9e4fb6946146 · 2017-11-03T12:03:29.000-04:00
diff --git a/SRC/chetrf_aa.f b/SRC/chetrf_aa.f
@@ -174,7 +174,7 @@ SUBROUTINE CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
 *
 *     Determine the block size
 *
-      NB = ILAENV( 1, 'CHETRF', UPLO, N, -1, -1, -1 )
+      NB = ILAENV( 1, 'CHETRF_AA', UPLO, N, -1, -1, -1 )
 *
 *     Test the input parameters.
 *
diff --git a/SRC/csytrf_aa.f b/SRC/csytrf_aa.f
@@ -174,7 +174,7 @@ SUBROUTINE CSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
 *
 *     Determine the block size
 *
-      NB = ILAENV( 1, 'CSYTRF', UPLO, N, -1, -1, -1 )
+      NB = ILAENV( 1, 'CSYTRF_AA', UPLO, N, -1, -1, -1 )
 *
 *     Test the input parameters.
 *
diff --git a/SRC/dsytrf_aa.f b/SRC/dsytrf_aa.f
@@ -174,7 +174,7 @@ SUBROUTINE DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
 *
 *     Determine the block size
 *
-      NB = ILAENV( 1, 'DSYTRF', UPLO, N, -1, -1, -1 )
+      NB = ILAENV( 1, 'DSYTRF_AA', UPLO, N, -1, -1, -1 )
 *
 *     Test the input parameters.
 *
diff --git a/SRC/ssytrf_aa.f b/SRC/ssytrf_aa.f
@@ -174,7 +174,7 @@ SUBROUTINE SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
 *
 *     Determine the block size
 *
-      NB = ILAENV( 1, 'SSYTRF', UPLO, N, -1, -1, -1 )
+      NB = ILAENV( 1, 'SSYTRF_AA', UPLO, N, -1, -1, -1 )
 *
 *     Test the input parameters.
 *
diff --git a/SRC/zhetrf_aa.f b/SRC/zhetrf_aa.f
@@ -174,7 +174,7 @@ SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
 *
 *     Determine the block size
 *
-      NB = ILAENV( 1, 'ZHETRF', UPLO, N, -1, -1, -1 )
+      NB = ILAENV( 1, 'ZHETRF_AA', UPLO, N, -1, -1, -1 )
 *
 *     Test the input parameters.
 *
diff --git a/SRC/zsytrf_aa.f b/SRC/zsytrf_aa.f
@@ -174,7 +174,7 @@ SUBROUTINE ZSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
 *
 *     Determine the block size
 *
-      NB = ILAENV( 1, 'ZSYTRF', UPLO, N, -1, -1, -1 )
+      NB = ILAENV( 1, 'ZSYTRF_AA', UPLO, N, -1, -1, -1 )
 *
 *     Test the input parameters.
 *

Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)`
`174`	`174`	`*`
`175`	`175`	`* Determine the block size`
`176`	`176`	`*`
`177`		`- NB = ILAENV( 1, 'CHETRF', UPLO, N, -1, -1, -1 )`
	`177`	`+ NB = ILAENV( 1, 'CHETRF_AA', UPLO, N, -1, -1, -1 )`
`178`	`178`	`*`
`179`	`179`	`* Test the input parameters.`
`180`	`180`	`*`
Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE CSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)`
`174`	`174`	`*`
`175`	`175`	`* Determine the block size`
`176`	`176`	`*`
`177`		`- NB = ILAENV( 1, 'CSYTRF', UPLO, N, -1, -1, -1 )`
	`177`	`+ NB = ILAENV( 1, 'CSYTRF_AA', UPLO, N, -1, -1, -1 )`
`178`	`178`	`*`
`179`	`179`	`* Test the input parameters.`
`180`	`180`	`*`
Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)`
`174`	`174`	`*`
`175`	`175`	`* Determine the block size`
`176`	`176`	`*`
`177`		`- NB = ILAENV( 1, 'DSYTRF', UPLO, N, -1, -1, -1 )`
	`177`	`+ NB = ILAENV( 1, 'DSYTRF_AA', UPLO, N, -1, -1, -1 )`
`178`	`178`	`*`
`179`	`179`	`* Test the input parameters.`
`180`	`180`	`*`
Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)`
`174`	`174`	`*`
`175`	`175`	`* Determine the block size`
`176`	`176`	`*`
`177`		`- NB = ILAENV( 1, 'SSYTRF', UPLO, N, -1, -1, -1 )`
	`177`	`+ NB = ILAENV( 1, 'SSYTRF_AA', UPLO, N, -1, -1, -1 )`
`178`	`178`	`*`
`179`	`179`	`* Test the input parameters.`
`180`	`180`	`*`
Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)`
`174`	`174`	`*`
`175`	`175`	`* Determine the block size`
`176`	`176`	`*`
`177`		`- NB = ILAENV( 1, 'ZHETRF', UPLO, N, -1, -1, -1 )`
	`177`	`+ NB = ILAENV( 1, 'ZHETRF_AA', UPLO, N, -1, -1, -1 )`
`178`	`178`	`*`
`179`	`179`	`* Test the input parameters.`
`180`	`180`	`*`
Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE ZSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)`
`174`	`174`	`*`
`175`	`175`	`* Determine the block size`
`176`	`176`	`*`
`177`		`- NB = ILAENV( 1, 'ZSYTRF', UPLO, N, -1, -1, -1 )`
	`177`	`+ NB = ILAENV( 1, 'ZSYTRF_AA', UPLO, N, -1, -1, -1 )`
`178`	`178`	`*`
`179`	`179`	`* Test the input parameters.`
`180`	`180`	`*`