mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-21 11:03:29 +01:00
Merge branch 'dev-stable' of https://github.com/QuantumPackage/qp2 into dev-stable
This commit is contained in:
commit
041446a250
2
external/ezfio
vendored
2
external/ezfio
vendored
@ -1 +1 @@
|
|||||||
Subproject commit d5805497fa0ef30e70e055cde1ecec2963303e93
|
Subproject commit 0520b5e2cf70e2451c37ce5b7f2f64f6d2e5e956
|
@ -204,8 +204,8 @@ function is_del(i)
|
|||||||
is_del = .False.
|
is_del = .False.
|
||||||
|
|
||||||
! Search
|
! Search
|
||||||
do j = 1, dim_list_core_orb
|
do j = 1, dim_list_del_orb
|
||||||
if (list_core(j) == i) then
|
if (list_del(j) == i) then
|
||||||
is_del = .True.
|
is_del = .True.
|
||||||
exit
|
exit
|
||||||
endif
|
endif
|
||||||
|
@ -209,8 +209,8 @@ function is_del(i)
|
|||||||
is_del = .False.
|
is_del = .False.
|
||||||
|
|
||||||
! Search
|
! Search
|
||||||
do j = 1, dim_list_core_orb
|
do j = 1, dim_list_del_orb
|
||||||
if (list_core(j) == i) then
|
if (list_del(j) == i) then
|
||||||
is_del = .True.
|
is_del = .True.
|
||||||
exit
|
exit
|
||||||
endif
|
endif
|
||||||
|
Loading…
Reference in New Issue
Block a user