mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 12:23:43 +01:00
commit
e7e0ce904e
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user