comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fix for ygetrs.F

Browse source
This commit is contained in:
Jochen Autschbach 2022-05-06 14:53:47 -04:00 • committed by edoapra
parent 8543695922
commit 1f0a34a8e1
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/64to32blas/ygetrs.F
View file

@ -6,7 +6,7 @@
#include "y64.fh"
character*1 trans
integer ipiv(*)
integer info, lda, ldb, n, nrhs, lwork
integer info, lda, ldb, n, nrhs
double precision a( lda, * ), b(ldb, * )
c
INTGR4 n4, info4, lda4, ldb4, nrhs4
@ -15,7 +15,7 @@ c
nrhs4 = nrhs
lda4 = lda
ldb4 = ldb
lwork4 = lwork
info4 = 0
c
call dgetrs(trans, n4, nrhs4, a, lda4, ipiv, b, ldb4, info4)
info=info4