From bb901fcada346460164c500a74ebc51cd2885e99 Mon Sep 17 00:00:00 2001
From: v1j4y <vijay.gopal.c@gmail.com>
Date: Fri, 17 Jun 2022 22:44:34 +0200
Subject: [PATCH] Cleaning.

---
 src/csf/configuration_CI_sigma_helpers.irp.f | 8 --------
 src/csf/obtain_I_foralpha.irp.f              | 4 ----
 2 files changed, 12 deletions(-)

diff --git a/src/csf/configuration_CI_sigma_helpers.irp.f b/src/csf/configuration_CI_sigma_helpers.irp.f
index 1a8c1d14..a5bc845e 100644
--- a/src/csf/configuration_CI_sigma_helpers.irp.f
+++ b/src/csf/configuration_CI_sigma_helpers.irp.f
@@ -61,7 +61,6 @@ use bitmasks
     ! find out all pq holes possible
     nholes = 0
     ! holes in SOMO
-    !do i = 1,mo_num
     do ii = 1,n_act_orb
       i = list_act(ii)
       if(POPCNT(IAND(Isomo,IBSET(0_8,i-1))) .EQ. 1) then
@@ -71,7 +70,6 @@ use bitmasks
       endif
     end do
     ! holes in DOMO
-    !do i = 1,mo_num
     do ii = 1,n_act_orb
       i = list_act(ii)
       if(POPCNT(IAND(Idomo,IBSET(0_8,i-1))) .EQ. 1) then
@@ -85,7 +83,6 @@ use bitmasks
     listvmos = -1
     vmotype = -1
     nvmos = 0
-    !do i = 1,mo_num
     do ii = 1,n_act_orb
       i = list_act(ii)
       if(IAND(Idomo,(IBSET(0_8,i-1))) .EQ. 0) then
@@ -323,12 +320,9 @@ END_PROVIDER
   !call debug_spindet(Isomo,1)
   !call debug_spindet(Idomo,1)
 
-  !print*,n_act_orb, "monum=",mo_num," n_core=",n_core_orb
-
   ! find out all pq holes possible
   nholes = 0
   ! holes in SOMO
-  !do i = 1,mo_num
   do ii = 1,n_act_orb
     i = list_act(ii)
      if(POPCNT(IAND(Isomo,IBSET(0_8,i-1))) .EQ. 1) then
@@ -338,7 +332,6 @@ END_PROVIDER
      endif
   end do
   ! holes in DOMO
-  !do i = 1,mo_num
   do ii = 1,n_act_orb
     i = list_act(ii)
      if(POPCNT(IAND(Idomo,IBSET(0_8,i-1))) .EQ. 1) then
@@ -352,7 +345,6 @@ END_PROVIDER
   listvmos = -1
   vmotype = -1
   nvmos = 0
-  !do i = 1,mo_num
   do ii = 1,n_act_orb
     i = list_act(ii)
      !print *,i,IBSET(0,i-1),POPCNT(IAND(Isomo,(IBSET(0_8,i-1)))), POPCNT(IAND(Idomo,(IBSET(0_8,i-1))))
diff --git a/src/csf/obtain_I_foralpha.irp.f b/src/csf/obtain_I_foralpha.irp.f
index a13fc5da..3926b908 100644
--- a/src/csf/obtain_I_foralpha.irp.f
+++ b/src/csf/obtain_I_foralpha.irp.f
@@ -146,7 +146,6 @@ subroutine obtain_connected_J_givenI(idxI, givenI, connectedI, idxs_connectedI,
         ! holes in SOMO
         Isomo = psi_configuration(1,1,i)
         Idomo = psi_configuration(1,2,i)
-        !do ii = 1,mo_num
         do iii = 1,n_act_orb
           ii = list_act(iii)
            if(POPCNT(IAND(Isomo,IBSET(0_8,ii-1))) .EQ. 1) then
@@ -156,7 +155,6 @@ subroutine obtain_connected_J_givenI(idxI, givenI, connectedI, idxs_connectedI,
            endif
         end do
         ! holes in DOMO
-        !do ii = 1,mo_num
         do iii = 1,n_act_orb
           ii = list_act(iii)
            if(POPCNT(IAND(Idomo,IBSET(0_8,ii-1))) .EQ. 1) then
@@ -339,7 +337,6 @@ subroutine obtain_connected_I_foralpha(idxI, Ialpha, connectedI, idxs_connectedI
         ! holes in SOMO
         Isomo = psi_configuration(1,1,i)
         Idomo = psi_configuration(1,2,i)
-        !do ii = 1,mo_num
         do iii = 1,n_act_orb
           ii = list_act(iii)
            if(POPCNT(IAND(Isomo,IBSET(0_8,ii-1))) .EQ. 1) then
@@ -349,7 +346,6 @@ subroutine obtain_connected_I_foralpha(idxI, Ialpha, connectedI, idxs_connectedI
            endif
         end do
         ! holes in DOMO
-        !do ii = 1,mo_num
         do iii = 1,n_act_orb
           ii = list_act(iii)
            if(POPCNT(IAND(Idomo,IBSET(0_8,ii-1))) .EQ. 1) then