From 880025f084af2bba6e6b53ab42e151ef50d016a0 Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Mon, 30 Oct 2023 11:10:47 -0700
Subject: [PATCH] more 32-bit integer fixes for big-endiand archs

---
 src/tools/ga_diag_seg_i4_patch.sh | 35 +++++++++++++++++++++++++++++++
 src/tools/get-tools-github        |  1 +
 2 files changed, 36 insertions(+)
 create mode 100755 src/tools/ga_diag_seg_i4_patch.sh

diff --git a/src/tools/ga_diag_seg_i4_patch.sh b/src/tools/ga_diag_seg_i4_patch.sh
new file mode 100755
index 0000000000..479d419347
--- /dev/null
+++ b/src/tools/ga_diag_seg_i4_patch.sh
@@ -0,0 +1,35 @@
+#!/usr/bin/env bash
+rm -f ga_diag_seg_i4.patch
+cat > ga_diag_seg_i4.patch <<EOF
+--- $1/global/src/ga_diag_seq.F.org	2023-10-30 11:07:22.963036506 -0700
++++ $1/global/src/ga_diag_seq.F	        2023-10-28 20:21:34.000000000 -0700
+@@ -28,11 +28,12 @@
+       integer l_wrk
+       MA_ACCESS_INDEX_TYPE k_wrk
+       integer n2
++      INTGR4 n2_4
+ #endif
+       integer l_a, l_s
+       MA_ACCESS_INDEX_TYPE k_a, k_s
+       integer dim1, dim2, type, me
+-      INTGR4 n4,ierr
++      INTGR4 n4,ierr,one4
+       logical status
+ c
+ c
+@@ -94,8 +95,10 @@
+          call rsg(n, n, dbl_mb(k_a), dbl_mb(k_s), evals, 1,
+      $        dbl_mb(k_v), dbl_mb(k_fv1), dbl_mb(k_fv2), ierr)
+ #else
+-         call dsygv(1,'V','U',n4,dbl_mb(k_a),n,dbl_mb(k_s),n4,
+-     $              evals,dbl_mb(k_wrk),n2, ierr)
++         one4=1
++         n2_4=n2
++         call dsygv(one4,'V','U',n4,dbl_mb(k_a),n4,dbl_mb(k_s),n4,
++     $              evals,dbl_mb(k_wrk),n2_4, ierr)
+          if (ierr.ne.0)
+      $       call ga_error('ga_diag_seq: dsygv failed',ierr)
+ c We used to copy to preserve code symmetry with EISPACK
+EOF
+patch -p0 -s -N < ./ga_diag_seg_i4.patch
+echo ga_diag_seg_i4.patch applied
diff --git a/src/tools/get-tools-github b/src/tools/get-tools-github
index 9c1641187f..56600c6a29 100755
--- a/src/tools/get-tools-github
+++ b/src/tools/get-tools-github
@@ -206,6 +206,7 @@ if [[ -d "ga-5.8.2" ]]; then
 	./peigstubs_patch.sh $GA_DIR
 	./mpipr-too-many_patch.sh $GA_DIR
 	./scalapacki4_patch.sh $GA_DIR
+	./ga_diag_seg_i4_patch.sh $GA_DIR
 	if [ $(uname -s) != "Darwin" ]; then
 	    ./autoconf_patch.sh $GA_DIR
 	fi