fixing the workspace size

iyamazaki · iyamazaki · commit 1b9417b3d61b · 2017-11-02T23:50:55.000-04:00
diff --git a/TESTING/LIN/cdrvhe_aa.f b/TESTING/LIN/cdrvhe_aa.f
@@ -241,7 +241,6 @@ SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
       DO 10 I = 1, 4
          ISEED( I ) = ISEEDY( I )
    10 CONTINUE
-      LWORK = MAX( 2*NMAX, NMAX*NRHS )
 *
 *     Test the error exits
 *
@@ -260,6 +259,8 @@ SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
 *
       DO 180 IN = 1, NN
          N = NVAL( IN )
+         LWORK = MAX( 3*N-2, N*(1+NB) )
+         LWORK = MAX( LWORK, 1 )
          LDA = MAX( N, 1 )
          XTYPE = 'N'
          NIMAT = NTYPES
diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f
@@ -240,7 +240,6 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
       DO 10 I = 1, 4
          ISEED( I ) = ISEEDY( I )
    10 CONTINUE
-      LWORK = MAX( 2*NMAX, NMAX*NRHS )
 *
 *     Test the error exits
 *
@@ -259,6 +258,8 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
 *
       DO 180 IN = 1, NN
          N = NVAL( IN )
+         LWORK = MAX( 3*N-2, N*(1+NB) )
+         LWORK = MAX( LWORK, 1 )
          LDA = MAX( N, 1 )
          XTYPE = 'N'
          NIMAT = NTYPES
diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f
@@ -238,7 +238,6 @@ SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
       DO 10 I = 1, 4
          ISEED( I ) = ISEEDY( I )
    10 CONTINUE
-      LWORK = MAX( 2*NMAX, NMAX*NRHS )
 *
 *     Test the error exits
 *
@@ -257,6 +256,8 @@ SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
 *
       DO 180 IN = 1, NN
          N = NVAL( IN )
+         LWORK = MAX( 3*N-2, N*(1+NB) )
+         LWORK = MAX( LWORK, 1 )
          LDA = MAX( N, 1 )
          XTYPE = 'N'
          NIMAT = NTYPES
diff --git a/TESTING/LIN/zdrvhe_aa.f b/TESTING/LIN/zdrvhe_aa.f
@@ -241,7 +241,6 @@ SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
       DO 10 I = 1, 4
          ISEED( I ) = ISEEDY( I )
    10 CONTINUE
-      LWORK = MAX( 2*NMAX, NMAX*NRHS )
 *
 *     Test the error exits
 *
@@ -260,6 +259,8 @@ SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
 *
       DO 180 IN = 1, NN
          N = NVAL( IN )
+         LWORK = MAX( 3*N-2, N*(1+NB) )
+         LWORK = MAX( LWORK, 1 )
          LDA = MAX( N, 1 )
          XTYPE = 'N'
          NIMAT = NTYPES

Original file line number	Diff line number	Diff line change
`@@ -241,7 +241,6 @@ SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`241`	`241`	`DO 10 I = 1, 4`
`242`	`242`	`ISEED( I ) = ISEEDY( I )`
`243`	`243`	`10 CONTINUE`
`244`		`- LWORK = MAX( 2NMAX, NMAXNRHS )`
`245`	`244`	`*`
`246`	`245`	`* Test the error exits`
`247`	`246`	`*`
`@@ -260,6 +259,8 @@ SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`260`	`259`	`*`
`261`	`260`	`DO 180 IN = 1, NN`
`262`	`261`	`N = NVAL( IN )`
	`262`	`+ LWORK = MAX( 3N-2, N(1+NB) )`
	`263`	`+ LWORK = MAX( LWORK, 1 )`
`263`	`264`	`LDA = MAX( N, 1 )`
`264`	`265`	`XTYPE = 'N'`
`265`	`266`	`NIMAT = NTYPES`
Original file line number	Diff line number	Diff line change
`@@ -240,7 +240,6 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`240`	`240`	`DO 10 I = 1, 4`
`241`	`241`	`ISEED( I ) = ISEEDY( I )`
`242`	`242`	`10 CONTINUE`
`243`		`- LWORK = MAX( 2NMAX, NMAXNRHS )`
`244`	`243`	`*`
`245`	`244`	`* Test the error exits`
`246`	`245`	`*`
`@@ -259,6 +258,8 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`259`	`258`	`*`
`260`	`259`	`DO 180 IN = 1, NN`
`261`	`260`	`N = NVAL( IN )`
	`261`	`+ LWORK = MAX( 3N-2, N(1+NB) )`
	`262`	`+ LWORK = MAX( LWORK, 1 )`
`262`	`263`	`LDA = MAX( N, 1 )`
`263`	`264`	`XTYPE = 'N'`
`264`	`265`	`NIMAT = NTYPES`
Original file line number	Diff line number	Diff line change
`@@ -238,7 +238,6 @@ SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`238`	`238`	`DO 10 I = 1, 4`
`239`	`239`	`ISEED( I ) = ISEEDY( I )`
`240`	`240`	`10 CONTINUE`
`241`		`- LWORK = MAX( 2NMAX, NMAXNRHS )`
`242`	`241`	`*`
`243`	`242`	`* Test the error exits`
`244`	`243`	`*`
`@@ -257,6 +256,8 @@ SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`257`	`256`	`*`
`258`	`257`	`DO 180 IN = 1, NN`
`259`	`258`	`N = NVAL( IN )`
	`259`	`+ LWORK = MAX( 3N-2, N(1+NB) )`
	`260`	`+ LWORK = MAX( LWORK, 1 )`
`260`	`261`	`LDA = MAX( N, 1 )`
`261`	`262`	`XTYPE = 'N'`
`262`	`263`	`NIMAT = NTYPES`
Original file line number	Diff line number	Diff line change
`@@ -241,7 +241,6 @@ SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`241`	`241`	`DO 10 I = 1, 4`
`242`	`242`	`ISEED( I ) = ISEEDY( I )`
`243`	`243`	`10 CONTINUE`
`244`		`- LWORK = MAX( 2NMAX, NMAXNRHS )`
`245`	`244`	`*`
`246`	`245`	`* Test the error exits`
`247`	`246`	`*`
`@@ -260,6 +259,8 @@ SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`260`	`259`	`*`
`261`	`260`	`DO 180 IN = 1, NN`
`262`	`261`	`N = NVAL( IN )`
	`262`	`+ LWORK = MAX( 3N-2, N(1+NB) )`
	`263`	`+ LWORK = MAX( LWORK, 1 )`
`263`	`264`	`LDA = MAX( N, 1 )`
`264`	`265`	`XTYPE = 'N'`
`265`	`266`	`NIMAT = NTYPES`