Commit 2d943bef authored by Daniel Wortmann's avatar Daniel Wortmann

Added output on parallelization to stdout

parent 7f82f539
......@@ -10,11 +10,28 @@ MODULE m_setupMPI
SUBROUTINE setupMPI(nkpt,mpi)
!$ use omp_lib
USE m_types
USE m_eigen_diag,ONLY:parallel_solver_available
INTEGER,INTENT(in) :: nkpt
TYPE(t_mpi),INTENT(inout) :: mpi
integer :: omp=-1
!$ omp=omp_get_max_threads()
if (mpi%irank==0) THEN
!print INFO on parallelization
#ifdef CPP_MPI
write(*,*) "Number of MPI-tasks: ",mpi%isize
!$write(*,*) "Number of OMP-threads:",omp
if (omp==-1) THEN
write(*,*) "No OpenMP version of FLEUR."
write(*,*) "Number of OMP-threads:",omp
IF (mpi%isize==1) THEN
!give some info on available parallelisation
CALL priv_dist_info(nkpt)
......@@ -135,6 +152,8 @@ CONTAINS
INTEGER,INTENT(in) :: nkpt
INTEGER:: n,k_only,pe_k_only(nkpt)
!Create a list of PE that will lead to k-point parallelization only
DO n=1,nkpt
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment