LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

Modernize openmp

Browse Source
This commit is contained in:
Anthony Scemama 2021-02-13 16:19:48 +01:00
parent 13fa8d19b6
commit 7fba897278
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/cipsi/slave_cipsi.irp.f
View File

@ -4,7 +4,7 @@ subroutine run_slave_cipsi
! Helper program for distributed parallelism
END_DOC
call omp_set_nested(.false.)
call omp_set_max_active_levels(1)
distributed_davidson = .False.
read_wf = .False.
SOFT_TOUCH read_wf distributed_davidson
@ -171,9 +171,9 @@ subroutine run_slave_main
call write_double(6,(t1-t0),'Broadcast time')
!---
call omp_set_nested(.True.)
call omp_set_max_active_levels(8)
call davidson_slave_tcp(0)
call omp_set_nested(.False.)
call omp_set_max_active_levels(1)
print *, mpi_rank, ': Davidson done'
!---