floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initialize X and Y to zero for N=0 (Reference-LAPACK PR463)

This commit is contained in:
Martin Kroeker 2021-05-02 11:40:56 +02:00 committed by GitHub
parent 3a30c12019
commit c26780d451
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 36 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lapack-netlib/SRC/cggglm.f
View File

@ -271,8 +271,15 @@
*
* Quick return if possible
*
IF( N.EQ.0 )
$ RETURN
IF( N.EQ.0 ) THEN
DO I = 1, M
X(I) = CZERO
END DO
DO I = 1, P
Y(I) = CZERO
END DO
RETURN
END IF
*
* Compute the GQR factorization of matrices A and B:
*

11
lapack-netlib/SRC/dggglm.f
View File

@ -270,8 +270,15 @@
*
* Quick return if possible
*
IF( N.EQ.0 )
$ RETURN
IF( N.EQ.0 ) THEN
DO I = 1, M
X(I) = ZERO
END DO
DO I = 1, P
Y(I) = ZERO
END DO
RETURN
END IF
*
* Compute the GQR factorization of matrices A and B:
*

11
lapack-netlib/SRC/sggglm.f
View File

@ -270,8 +270,15 @@
*
* Quick return if possible
*
IF( N.EQ.0 )
$ RETURN
IF( N.EQ.0 ) THEN
DO I = 1, M
X(I) = ZERO
END DO
DO I = 1, P
Y(I) = ZERO
END DO
RETURN
END IF
*
* Compute the GQR factorization of matrices A and B:
*

11
lapack-netlib/SRC/zggglm.f
View File

@ -271,8 +271,15 @@
*
* Quick return if possible
*
IF( N.EQ.0 )
$ RETURN
IF( N.EQ.0 ) THEN
DO I = 1, M
X(I) = CZERO
END DO
DO I = 1, P
Y(I) = CZERO
END DO
RETURN
END IF
*
* Compute the GQR factorization of matrices A and B:
*