Merge pull request #3839 from martin-frbg/lapack758
Fix array dimesion in complex SYL01 test (Reference-LAPACK PR758)
This commit is contained in:
commit
663bf68dbd
|
@ -124,7 +124,7 @@
|
||||||
$ C( MAXM, MAXN ), CC( MAXM, MAXN ),
|
$ C( MAXM, MAXN ), CC( MAXM, MAXN ),
|
||||||
$ X( MAXM, MAXN ),
|
$ X( MAXM, MAXN ),
|
||||||
$ DUML( MAXM ), DUMR( MAXN ),
|
$ DUML( MAXM ), DUMR( MAXN ),
|
||||||
$ D( MIN( MAXM, MAXN ) )
|
$ D( MAX( MAXM, MAXN ) )
|
||||||
REAL SWORK( LDSWORK, 54 ), DUM( MAXN ), VM( 2 )
|
REAL SWORK( LDSWORK, 54 ), DUM( MAXN ), VM( 2 )
|
||||||
INTEGER ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
|
INTEGER ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
|
||||||
* ..
|
* ..
|
||||||
|
|
|
@ -124,7 +124,7 @@
|
||||||
$ C( MAXM, MAXN ), CC( MAXM, MAXN ),
|
$ C( MAXM, MAXN ), CC( MAXM, MAXN ),
|
||||||
$ X( MAXM, MAXN ),
|
$ X( MAXM, MAXN ),
|
||||||
$ DUML( MAXM ), DUMR( MAXN ),
|
$ DUML( MAXM ), DUMR( MAXN ),
|
||||||
$ D( MIN( MAXM, MAXN ) )
|
$ D( MAX( MAXM, MAXN ) )
|
||||||
DOUBLE PRECISION SWORK( LDSWORK, 103 ), DUM( MAXN ), VM( 2 )
|
DOUBLE PRECISION SWORK( LDSWORK, 103 ), DUM( MAXN ), VM( 2 )
|
||||||
INTEGER ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
|
INTEGER ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
|
||||||
* ..
|
* ..
|
||||||
|
|
Loading…
Reference in New Issue