LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

modified core_inact_act_virt.irp.f

Browse Source
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 END_PROVIDER
BEGIN_PROVIDER [integer, n_inact_act ] BEGIN_PROVIDER [integer, n_inact_act_orb ]
implicit none implicit none
n_inact_act = (n_inact_orb+n_act_orb) n_inact_act_orb = (n_inact_orb+n_act_orb)
END_PROVIDER END_PROVIDER
BEGIN_PROVIDER [integer, list_inact_act, (n_inact_act)] BEGIN_PROVIDER [integer, list_inact_act, (n_inact_act_orb)]
integer :: i,itmp integer :: i,itmp
itmp = 0 itmp = 0
do i = 1, n_inact_orb do i = 1, n_inact_orb