LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-30 15:15:38 +01:00
Code Releases Activity

Merge pull request #300 from Ydrnan/dev-fix
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source 
fix typo
This commit is contained in:
Anthony Scemama 2023-06-27 00:40:42 +02:00 committed by GitHub
commit e7e0ce904e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/utils_cc/occupancy.irp.f
View File

@ -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

4
src/utils_cc/org/occupancy.org
View File

@ -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