From 34831ea13779e6d57100ef2ead9f499aedea4fda Mon Sep 17 00:00:00 2001
From: lachlanbelcher <70237894+lachlanbelcher@users.noreply.github.com>
Date: Sun, 21 Jan 2024 15:33:26 -0300
Subject: [PATCH] Update int_2e_sifs.F

Removing superfluous passing of ifmt
---
 src/nwc_columbus/aoints/int_2e_sifs.F | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/nwc_columbus/aoints/int_2e_sifs.F b/src/nwc_columbus/aoints/int_2e_sifs.F
index 990d6d8c54..03696a1a5e 100644
--- a/src/nwc_columbus/aoints/int_2e_sifs.F
+++ b/src/nwc_columbus/aoints/int_2e_sifs.F
@@ -1,5 +1,5 @@
       subroutine int_2e_sifs( geom, basis, tol2e, oskel, aoint2, ninfo, 
-     &    info, ifmt, ibvtyp, ibitv, clabs)
+     &    info, ibvtyp, ibitv, clabs)
 c
       implicit none
 #include "errquit.fh"
@@ -19,7 +19,7 @@ c     arguments
 c     
       integer geom, basis            ! [input] parameter handles
       integer aoint2 
-      integer ninfo, ifmt, ibvtyp
+      integer ninfo, ibvtyp
       integer ibitv
       integer info(ninfo)
       double precision tol2e         ! [input] integral selection threshold
@@ -185,7 +185,7 @@ cgk end
 
          call int_2e_sifs_a( geom, basis, ablklen, tol2e, oskel,
      $        dbl_mb(k_atmp), int_mb(k_block), nblock,  aoint2, ninfo, 
-     &        info, ifmt, ibvtyp, ibitv, clabs)
+     &        info, ibvtyp, ibitv, clabs)
 
 cgk debug
 *     write(*,*)'gk: back from int_2e_sifs_a'