mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-20 06:48:20 +02:00
working on remove_duplicates
This commit is contained in:
parent
cb4d11e379
commit
638af5195d
@ -226,7 +226,7 @@ subroutine remove_duplicates_in_psi_det(found_duplicates)
|
||||
enddo
|
||||
!$OMP END DO
|
||||
|
||||
!$OMP DO
|
||||
!$OMP DO schedule(dynamic,256)
|
||||
do i=1,N_det-1
|
||||
if (duplicate(i)) then
|
||||
cycle
|
||||
@ -250,10 +250,8 @@ subroutine remove_duplicates_in_psi_det(found_duplicates)
|
||||
endif
|
||||
enddo
|
||||
if (dup) then
|
||||
!$OMP CRITICAL
|
||||
duplicate(j) = .True.
|
||||
found_duplicates = .True.
|
||||
!$OMP END CRITICAL
|
||||
endif
|
||||
j += 1
|
||||
if (j > N_det) then
|
||||
|
@ -37,7 +37,6 @@ BEGIN_PROVIDER [ character*(128), ezfio_filename ]
|
||||
character*(64) :: command, pidc
|
||||
write(pidc,*) getpid()
|
||||
write(command,*) 'echo 15 > /proc//'//trim(adjustl(pidc))//'/oom_adj'
|
||||
print '(A)', command
|
||||
call system(command)
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user