LCPQ
/
qp2
mirror of https://github.com/QuantumPackage/qp2.git
9
1
Fork 0
Code Releases Activity

modified core_inact_act_virt.irp.f

This commit is contained in:
Emmanuel Giner LCT 2019-05-10 16:00:04 +02:00
parent 514975be09
commit 7e679b11b1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/bitmask/core_inact_act_virt.irp.f
View File

@ -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