OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Merge pull request #5345 from OpenMathLib/revert-5251-issue5250 

Revert "Fix out-of-bounds accesses in ?/SCAL/?GEEV triggered by preceding errrors/invalid inputs"
pull/5348/head
Martin Kroeker GitHub 3 months ago
parent
b78d1dc0ae 83a01d29ca
commit
4062c10370
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
4 changed files with 12 additions and 12 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +3
    -3
      lapack-netlib/SRC/cgeev.f
  2. +3
    -3
      lapack-netlib/SRC/dgeev.f
  3. +3
    -3
      lapack-netlib/SRC/sgeev.f
  4. +3
    -3
      lapack-netlib/SRC/zgeev.f

+ 3
- 3
lapack-netlib/SRC/cgeev.f View File

@@ -485,12 +485,12 @@
* Undo scaling if necessary * Undo scaling if necessary
* *
50 CONTINUE 50 CONTINUE
IF( SCALEA .AND. INFO.GT.0 ) THEN
IF( SCALEA ) THEN
CALL CLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, W( INFO+1 ), CALL CLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, W( INFO+1 ),
$ MAX( N-INFO, 1 ), IERR ) $ MAX( N-INFO, 1 ), IERR )
IF( INFO.GT.0 ) THEN
CALL CLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, W, N, IERR ) CALL CLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, W, N, IERR )
END IF
END IF END IF
* *
WORK( 1 ) = SROUNDUP_LWORK(MAXWRK) WORK( 1 ) = SROUNDUP_LWORK(MAXWRK)


+ 3
- 3
lapack-netlib/SRC/dgeev.f View File

@@ -506,17 +506,17 @@
* Undo scaling if necessary * Undo scaling if necessary
* *
50 CONTINUE 50 CONTINUE
IF( SCALEA .AND. INFO.GT.0) THEN
IF( SCALEA ) THEN
CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WR( INFO+1 ), CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WR( INFO+1 ),
$ MAX( N-INFO, 1 ), IERR ) $ MAX( N-INFO, 1 ), IERR )
CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WI( INFO+1 ), CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WI( INFO+1 ),
$ MAX( N-INFO, 1 ), IERR ) $ MAX( N-INFO, 1 ), IERR )
IF( INFO.GT.0 ) THEN
CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WR, N, CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WR, N,
$ IERR ) $ IERR )
CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WI, N, CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WI, N,
$ IERR ) $ IERR )
END IF
END IF END IF
* *
WORK( 1 ) = MAXWRK WORK( 1 ) = MAXWRK


+ 3
- 3
lapack-netlib/SRC/sgeev.f View File

@@ -504,17 +504,17 @@
* Undo scaling if necessary * Undo scaling if necessary
* *
50 CONTINUE 50 CONTINUE
IF( SCALEA .AND. INFO.GT.0) THEN
IF( SCALEA ) THEN
CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WR( INFO+1 ), CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WR( INFO+1 ),
$ MAX( N-INFO, 1 ), IERR ) $ MAX( N-INFO, 1 ), IERR )
CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WI( INFO+1 ), CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WI( INFO+1 ),
$ MAX( N-INFO, 1 ), IERR ) $ MAX( N-INFO, 1 ), IERR )
IF( INFO.GT.0 ) THEN
CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WR, N, CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WR, N,
$ IERR ) $ IERR )
CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WI, N, CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WI, N,
$ IERR ) $ IERR )
END IF
END IF END IF
* *
WORK( 1 ) = SROUNDUP_LWORK(MAXWRK) WORK( 1 ) = SROUNDUP_LWORK(MAXWRK)


+ 3
- 3
lapack-netlib/SRC/zgeev.f View File

@@ -485,12 +485,12 @@
* Undo scaling if necessary * Undo scaling if necessary
* *
50 CONTINUE 50 CONTINUE
IF( SCALEA .AND. INFO.GT.0) THEN
IF( SCALEA ) THEN
CALL ZLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, W( INFO+1 ), CALL ZLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, W( INFO+1 ),
$ MAX( N-INFO, 1 ), IERR ) $ MAX( N-INFO, 1 ), IERR )
IF( INFO.GT.0 ) THEN
CALL ZLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, W, N, IERR ) CALL ZLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, W, N, IERR )
END IF
END IF END IF
* *
WORK( 1 ) = MAXWRK WORK( 1 ) = MAXWRK


Write Preview
Loading…
Cancel
Save