correction2 of CIPaverage.f

octavioroncero · Nov 9, 2022 · 3894aa4 · 3894aa4
1 parent 8e36fa8
commit 3894aa4
Showing 1 changed file with 1 addition and 6 deletions.
diff --git 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