From 7e679b11b1fbfbf0095d37d18cfa0aa87179fbe7 Mon Sep 17 00:00:00 2001 From: Emmanuel Giner LCT Date: Fri, 10 May 2019 16:00:04 +0200 Subject: [PATCH] modified core_inact_act_virt.irp.f --- src/bitmask/core_inact_act_virt.irp.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/bitmask/core_inact_act_virt.irp.f b/src/bitmask/core_inact_act_virt.irp.f index 1cf133fc..f830da4e 100644 --- a/src/bitmask/core_inact_act_virt.irp.f +++ b/src/bitmask/core_inact_act_virt.irp.f @@ -194,13 +194,13 @@ END_PROVIDER END_PROVIDER -BEGIN_PROVIDER [integer, n_inact_act ] +BEGIN_PROVIDER [integer, n_inact_act_orb ] implicit none - n_inact_act = (n_inact_orb+n_act_orb) + n_inact_act_orb = (n_inact_orb+n_act_orb) END_PROVIDER -BEGIN_PROVIDER [integer, list_inact_act, (n_inact_act)] +BEGIN_PROVIDER [integer, list_inact_act, (n_inact_act_orb)] integer :: i,itmp itmp = 0 do i = 1, n_inact_orb