diff options
Diffstat (limited to 'TESTING/EIG/cchkee.f')
-rw-r--r-- | TESTING/EIG/cchkee.f | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/TESTING/EIG/cchkee.f b/TESTING/EIG/cchkee.f index 91214b0c..74329653 100644 --- a/TESTING/EIG/cchkee.f +++ b/TESTING/EIG/cchkee.f @@ -2098,6 +2098,7 @@ MAXTYP = 26 NTYPES = MIN( MAXTYP, NTYPES ) CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) + CALL XLAENV(1,1) IF( TSTCHK .AND. TSTERR ) $ CALL CERRGG( C3, NOUT ) DO 350 I = 1, NPARMS @@ -2157,6 +2158,7 @@ * * Blocked version * + CALL XLAENV(16,2) CALL CDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), @@ -2223,6 +2225,7 @@ * * Blocked version * + CALL XLAENV(16,2) CALL CDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), @@ -2348,6 +2351,7 @@ * GSV: Generalized Singular Value Decomposition * ---------------------------------------------- * + CALL XLAENV(1,1) IF( TSTERR ) $ CALL CERRGG( 'GSV', NOUT ) CALL CCKGSV( NN, MVAL, PVAL, NVAL, NTYPES, ISEED, THRESH, NMAX, |