From 3894aa485ce8706539c716d304053c634eb7b6d7 Mon Sep 17 00:00:00 2001
From: octavio <octavio.roncero@csic.es>
Date: Wed, 9 Nov 2022 17:31:29 +0100
Subject: [PATCH] correction2 of CIPaverage.f

---
 SRC/AUXILIARy-CODES/CIPaverage-fast.f | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/SRC/AUXILIARy-CODES/CIPaverage-fast.f b/SRC/AUXILIARy-CODES/CIPaverage-fast.f
index 2763987..13c2913 100644
--- a/SRC/AUXILIARy-CODES/CIPaverage-fast.f
+++ b/SRC/AUXILIARy-CODES/CIPaverage-fast.f
@@ -181,12 +181,7 @@ program CIPprogram
             Jtot0=Jcalc(iJ)
 
             ipar=iomref0
-!            if(iabs(iomref0).gt.0)then
-!              par=+1.d0
-!              if(iomref0.lt.0)par=-1.d0
-!            else
-!              par=(-1.d0)**Jtot0
-!            endif
+            par=dble(ipar)
             sign=(-1.d0)**Jtot0
             iommin0=0
             if(par*sign.lt.0.d0)iommin0=1