Fix actual arguments (Reference-LAPACK PR 885) · 65773be536 - OpenBLAS - 开源协同云脑生态支撑系统

Fix actual arguments (Reference-LAPACK PR 885)

pull/4155/head

Martin Kroeker

GitHub 2 years ago

parent

e254c935fa

commit

65773be536

No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23

1 changed files with 2 additions and 1 deletions

Split View

							
								+ 2
								
								- 1
							
lapack-netlib/SRC/dgelqt3.fView File
								
			@@ -173,7 +173,8 @@
		
			*
		
			*        Compute Householder transform when M=1
		
			*
		
			         CALL DLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T )
		
			         CALL DLARFG( N, A ( 1, 1 ), A( 1, MIN( 2, N ) ), LDA,
		
			     &                T( 1, 1) )
		
			*
		
			      ELSE
		
			*