mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-24 21:21:47 +02:00
modified core_inact_act_virt.irp.f
This commit is contained in:
parent
514975be09
commit
7e679b11b1
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user