10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-19 04:22:32 +01:00
This commit is contained in:
Yann Damour 2023-06-26 15:59:30 +02:00
parent ab7da07ec4
commit b2393ba88d
2 changed files with 4 additions and 4 deletions

View File

@ -204,8 +204,8 @@ function is_del(i)
is_del = .False.
! Search
do j = 1, dim_list_core_orb
if (list_core(j) == i) then
do j = 1, dim_list_del_orb
if (list_del(j) == i) then
is_del = .True.
exit
endif

View File

@ -209,8 +209,8 @@ function is_del(i)
is_del = .False.
! Search
do j = 1, dim_list_core_orb
if (list_core(j) == i) then
do j = 1, dim_list_del_orb
if (list_del(j) == i) then
is_del = .True.
exit
endif