Skip to content

Commit bc3393f

Browse files
authored
Fix array dimension (Reference-LAPACK 758)
1 parent 0b2f8da commit bc3393f

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

lapack-netlib/TESTING/EIG/zsyl01.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -124,7 +124,7 @@ SUBROUTINE ZSYL01( THRESH, NFAIL, RMAX, NINFO, KNT )
124124
$ C( MAXM, MAXN ), CC( MAXM, MAXN ),
125125
$ X( MAXM, MAXN ),
126126
$ DUML( MAXM ), DUMR( MAXN ),
127-
$ D( MIN( MAXM, MAXN ) )
127+
$ D( MAX( MAXM, MAXN ) )
128128
DOUBLE PRECISION SWORK( LDSWORK, 103 ), DUM( MAXN ), VM( 2 )
129129
INTEGER ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
130130
* ..

0 commit comments

Comments
 (0)