From ff481745e7ce85a5c7e6b2a6a212d7dc6567dbd4 Mon Sep 17 00:00:00 2001
From: lachlanbelcher <70237894+lachlanbelcher@users.noreply.github.com>
Date: Sun, 21 Jan 2024 14:56:37 -0300
Subject: [PATCH] Update rd_d2bl.F

removed ifmt from call to sifrd2 -- carry over from previous version of sifs
---
 src/nwc_columbus/aoints/rd_d2bl.F | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/nwc_columbus/aoints/rd_d2bl.F b/src/nwc_columbus/aoints/rd_d2bl.F
index cc4235d5a0..af9f619194 100644
--- a/src/nwc_columbus/aoints/rd_d2bl.F
+++ b/src/nwc_columbus/aoints/rd_d2bl.F
@@ -23,7 +23,7 @@ c     # bummer error types.
 c
 c  ##  integer section
 c
-      integer info(ninfmx),itypea,itypeb,ifmt,ibvtyp,ierr,ibitv(1)
+      integer info(ninfmx),itypea,itypeb,ibvtyp,ierr,ibitv(1)
       integer last,labs(4,*)
       integer nbuf
       integer sfile
@@ -48,7 +48,7 @@ cgk debug
 cgk end
       call sifrd2(sfile,   info,   nipv,    iretbv,
      &            buffer,  nbuf,   last,    itypea,
-     &            itypeb,  ifmt,   ibvtyp,  vals,
+     &            itypeb,  ibvtyp, vals,
      &            labs,    ibitv,  ierr)
 cgk debug
 !      write(*,*)'gk: after sifrd2'