From 01f8b47d2bdef668b700e77f977cfe2bfa4a0fc7 Mon Sep 17 00:00:00 2001
From: Daniel Mejia-Rodriguez <daniel.mejia@pnnl.gov>
Date: Mon, 20 Oct 2025 22:47:13 -0700
Subject: [PATCH] Bug fix in int_qdr_ga

---
 src/ddscf/int_dip_ga.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ddscf/int_dip_ga.F b/src/ddscf/int_dip_ga.F
index b5e174df2a..2c84809dd3 100644
--- a/src/ddscf/int_dip_ga.F
+++ b/src/ddscf/int_dip_ga.F
@@ -239,7 +239,7 @@ cdbg     I ga_nodeid(),'QDISTRIB',g_xx,i0,i1,j0,j1
 !
 !     get the integrals we want
 !
-               call int_mpole(jbas, ishell, ibas, jshell,
+               call int_mpole(jbas, jshell, ibas, ishell,
      $              2,
      $              center,
      $              mscratch, dbl_mb(k_scr), max1e, dbl_mb(k_buf))