From 437846e4d2253f6d20609912afe05088076683d2 Mon Sep 17 00:00:00 2001
From: Kevin Gasperich <kgasperich@gmail.com>
Date: Thu, 26 Mar 2020 11:46:32 -0500
Subject: [PATCH] printing

---
 src/bitmask/core_inact_act_virt.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/bitmask/core_inact_act_virt.irp.f b/src/bitmask/core_inact_act_virt.irp.f
index 5fea3418..d2efef89 100644
--- a/src/bitmask/core_inact_act_virt.irp.f
+++ b/src/bitmask/core_inact_act_virt.irp.f
@@ -434,7 +434,7 @@ BEGIN_PROVIDER [ integer(bit_kind), kpts_bitmask , (N_int,kpt_num) ]
     enddo
     call list_to_bitstring( kpts_bitmask(1,k), tmp_mo_list, mo_num_per_kpt, N_int)
     !debugging
-    print*,'k'
+    print*,'k = ',k
     call debug_single_spindet(kpts_bitmask(1,k),N_int)
   enddo
 END_PROVIDER