mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-19 04:22:32 +01:00
fix typo
This commit is contained in:
parent
ab7da07ec4
commit
b2393ba88d
@ -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