From 1f0a34a8e1d137e7bdaaca7223edbebbce58f287 Mon Sep 17 00:00:00 2001
From: Jochen Autschbach <jochena@buffalo.edu>
Date: Fri, 6 May 2022 14:53:47 -0400
Subject: [PATCH] fix for ygetrs.F

---
 src/64to32blas/ygetrs.F | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/64to32blas/ygetrs.F b/src/64to32blas/ygetrs.F
index ba9cbcc7fa..ad67257ebd 100644
--- a/src/64to32blas/ygetrs.F
+++ b/src/64to32blas/ygetrs.F
@@ -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