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

Correct dimension argument to xLASET 

from Reference-LAPACK PR 438
tags/v0.3.11^2
Martin Kroeker GitHub 5 years ago
parent
c8f029a518
commit
7d9c77f421
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 20 additions and 20 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +4
    -4
      lapack-netlib/TESTING/EIG/cchkst2stg.f
  2. +4
    -4
      lapack-netlib/TESTING/EIG/dchksb2stg.f
  3. +4
    -4
      lapack-netlib/TESTING/EIG/dchkst2stg.f
  4. +4
    -4
      lapack-netlib/TESTING/EIG/zchkhb2stg.f
  5. +4
    -4
      lapack-netlib/TESTING/EIG/zchkst2stg.f

+ 4
- 4
lapack-netlib/TESTING/EIG/cchkst2stg.f View File

@@ -1014,8 +1014,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the 1-stage. * using the 1-stage.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL CLACPY( 'U', N, N, A, LDA, V, LDU ) CALL CLACPY( 'U', N, N, A, LDA, V, LDU )
LH = MAX(1, 4*N) LH = MAX(1, 4*N)
LW = LWORK - LH LW = LWORK - LH
@@ -1048,8 +1048,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the 1-stage. * using the 1-stage.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL CLACPY( 'L', N, N, A, LDA, V, LDU ) CALL CLACPY( 'L', N, N, A, LDA, V, LDU )
CALL CHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU, CALL CHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
$ WORK, LH, WORK( LH+1 ), LW, IINFO ) $ WORK, LH, WORK( LH+1 ), LW, IINFO )


+ 4
- 4
lapack-netlib/TESTING/EIG/dchksb2stg.f View File

@@ -670,8 +670,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the DSBTRD. * using the DSBTRD.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL DLACPY( ' ', K+1, N, A, LDA, U, LDU ) CALL DLACPY( ' ', K+1, N, A, LDA, U, LDU )
LH = MAX(1, 4*N) LH = MAX(1, 4*N)
LW = LWORK - LH LW = LWORK - LH
@@ -743,8 +743,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the DSBTRD. * using the DSBTRD.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL DLACPY( ' ', K+1, N, A, LDA, U, LDU ) CALL DLACPY( ' ', K+1, N, A, LDA, U, LDU )
LH = MAX(1, 4*N) LH = MAX(1, 4*N)
LW = LWORK - LH LW = LWORK - LH


+ 4
- 4
lapack-netlib/TESTING/EIG/dchkst2stg.f View File

@@ -999,8 +999,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the 1-stage. * using the 1-stage.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL DLACPY( "U", N, N, A, LDA, V, LDU ) CALL DLACPY( "U", N, N, A, LDA, V, LDU )
LH = MAX(1, 4*N) LH = MAX(1, 4*N)
LW = LWORK - LH LW = LWORK - LH
@@ -1032,8 +1032,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the 1-stage. * using the 1-stage.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL DLACPY( "L", N, N, A, LDA, V, LDU ) CALL DLACPY( "L", N, N, A, LDA, V, LDU )
CALL DSYTRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU, CALL DSYTRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
$ WORK, LH, WORK( LH+1 ), LW, IINFO ) $ WORK, LH, WORK( LH+1 ), LW, IINFO )


+ 4
- 4
lapack-netlib/TESTING/EIG/zchkhb2stg.f View File

@@ -680,8 +680,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the DSBTRD. * using the DSBTRD.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL ZLACPY( ' ', K+1, N, A, LDA, U, LDU ) CALL ZLACPY( ' ', K+1, N, A, LDA, U, LDU )
LH = MAX(1, 4*N) LH = MAX(1, 4*N)
LW = LWORK - LH LW = LWORK - LH
@@ -753,8 +753,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the DSBTRD. * using the DSBTRD.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL ZLACPY( ' ', K+1, N, A, LDA, U, LDU ) CALL ZLACPY( ' ', K+1, N, A, LDA, U, LDU )
LH = MAX(1, 4*N) LH = MAX(1, 4*N)
LW = LWORK - LH LW = LWORK - LH


+ 4
- 4
lapack-netlib/TESTING/EIG/zchkst2stg.f View File

@@ -1014,8 +1014,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the 1-stage. * using the 1-stage.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL ZLACPY( 'U', N, N, A, LDA, V, LDU ) CALL ZLACPY( 'U', N, N, A, LDA, V, LDU )
LH = MAX(1, 4*N) LH = MAX(1, 4*N)
LW = LWORK - LH LW = LWORK - LH
@@ -1048,8 +1048,8 @@
* the one from above. Compare it with D1 computed * the one from above. Compare it with D1 computed
* using the 1-stage. * using the 1-stage.
* *
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL ZLACPY( 'L', N, N, A, LDA, V, LDU ) CALL ZLACPY( 'L', N, N, A, LDA, V, LDU )
CALL ZHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU, CALL ZHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
$ WORK, LH, WORK( LH+1 ), LW, IINFO ) $ WORK, LH, WORK( LH+1 ), LW, IINFO )


Write Preview
Loading…
Cancel
Save