Fix array dimension (Reference-LAPACK 758)
This commit is contained in:
parent
0b2f8dabbf
commit
bc3393f703
|
@ -124,7 +124,7 @@
|
|||
$ C( MAXM, MAXN ), CC( MAXM, MAXN ),
|
||||
$ X( MAXM, MAXN ),
|
||||
$ DUML( MAXM ), DUMR( MAXN ),
|
||||
$ D( MIN( MAXM, MAXN ) )
|
||||
$ D( MAX( MAXM, MAXN ) )
|
||||
DOUBLE PRECISION SWORK( LDSWORK, 103 ), DUM( MAXN ), VM( 2 )
|
||||
INTEGER ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
|
||||
* ..
|
||||
|
|
Loading…
Reference in New Issue