From 12dfbf03365512fbd1d79fc136562e81e82ee05d Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Tue, 1 May 2018 14:56:25 -0700
Subject: [PATCH] bug fix for icrun=t

---
 src/tce/mrcc/tce_mrcc_energy.F | 6 ++++--
 src/tce/mrcc/tce_mrcc_heff.F   | 4 ++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/tce/mrcc/tce_mrcc_energy.F b/src/tce/mrcc/tce_mrcc_energy.F
index 1b623cf673..f349234cff 100644
--- a/src/tce/mrcc/tce_mrcc_energy.F
+++ b/src/tce/mrcc/tce_mrcc_energy.F
@@ -1555,11 +1555,13 @@ c       call util_flush(6)
 c      endif
 c kk ---
 c
-c - T1/X1 LOCALIZATION --
+c     - T1/X1 LOCALIZATION --
+#if 0       
           if(ic_cc) then
            if(.not.MA_POP_STACK(l_t1_local))
      &       call errquit('l_t1_local',2,MA_ERR)
-          end if
+        end if
+#endif
 c -----------------------
 c
 c kk ---
diff --git a/src/tce/mrcc/tce_mrcc_heff.F b/src/tce/mrcc/tce_mrcc_heff.F
index c1ec33d70b..2634b093d3 100755
--- a/src/tce/mrcc/tce_mrcc_heff.F
+++ b/src/tce/mrcc/tce_mrcc_heff.F
@@ -533,7 +533,7 @@ c         call errquit('YOU ARE USING INCOMPLETE MODEL SPACE!',2,MA_ERR)
       nxt=NXTASKsub(-nprocs,1,mypgid)
       call GA_Pgroup_SYNC(mypgid)
       else
-      nxt=NXTASKsub(-nprocs,1)
+      nxt=NXTASK(-nprocs,1)
       call GA_SYNC()
       endif
       endif
@@ -1732,7 +1732,7 @@ c        enddo
       nxt=NXTASKsub(-nprocs,1,mypgid)
       call GA_Pgroup_SYNC(mypgid)
       else
-      nxt=NXTASKsub(-nprocs,1)
+      nxt=NXTASK(-nprocs,1)
       call GA_SYNC()
       endif
       endif