Merge pull request #24 from joseeroman/jose/fix-workspace-query

langou · web-flow · commit 249314c766e7 · 2020-06-20T08:06:30.000-06:00
Fix workspace query in PCHEEV, PZHEEV
diff --git a/SRC/pcheev.f b/SRC/pcheev.f
@@ -379,7 +379,7 @@ SUBROUTINE PCHEEV( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ,
 *           REAL work space for CSTEQR2
 *
             IF( WANTZ ) THEN
-               RSIZECSTEQR2 = MIN( 1, 2*N-2 )
+               RSIZECSTEQR2 = MAX( 1, 2*N-2 )
             ELSE
                RSIZECSTEQR2 = 0
             END IF
diff --git a/SRC/pzheev.f b/SRC/pzheev.f
@@ -379,7 +379,7 @@ SUBROUTINE PZHEEV( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ,
 *           DOUBLE PRECISION work space for ZSTEQR2
 *
             IF( WANTZ ) THEN
-               RSIZEZSTEQR2 = MIN( 1, 2*N-2 )
+               RSIZEZSTEQR2 = MAX( 1, 2*N-2 )
             ELSE
                RSIZEZSTEQR2 = 0
             END IF

Original file line number	Diff line number	Diff line change
`@@ -379,7 +379,7 @@ SUBROUTINE PCHEEV( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ,`
`379`	`379`	`* REAL work space for CSTEQR2`
`380`	`380`	`*`
`381`	`381`	`IF( WANTZ ) THEN`
`382`		`- RSIZECSTEQR2 = MIN( 1, 2*N-2 )`
	`382`	`+ RSIZECSTEQR2 = MAX( 1, 2*N-2 )`
`383`	`383`	`ELSE`
`384`	`384`	`RSIZECSTEQR2 = 0`
`385`	`385`	`END IF`
Original file line number	Diff line number	Diff line change
`@@ -379,7 +379,7 @@ SUBROUTINE PZHEEV( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ,`
`379`	`379`	`* DOUBLE PRECISION work space for ZSTEQR2`
`380`	`380`	`*`
`381`	`381`	`IF( WANTZ ) THEN`
`382`		`- RSIZEZSTEQR2 = MIN( 1, 2*N-2 )`
	`382`	`+ RSIZEZSTEQR2 = MAX( 1, 2*N-2 )`
`383`	`383`	`ELSE`
`384`	`384`	`RSIZEZSTEQR2 = 0`
`385`	`385`	`END IF`