From 0f0dfb4c048a1fd62d806a2177b87219ac2dba44 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 13 Sep 2020 12:13:59 +0200 Subject: [PATCH] 0-base counting for MPI --- src/parallelization.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/parallelization.f90 b/src/parallelization.f90 index fb0fb9f30..36861ae22 100644 --- a/src/parallelization.f90 +++ b/src/parallelization.f90 @@ -54,7 +54,7 @@ subroutine parallelization_init call MPI_Comm_rank(PETSC_COMM_WORLD,worldrank,err) if (err /= 0) error stop 'Could not determine worldrank' - if (worldrank == 1) write(6,'(/,a)') ' <<<+- parallelization init -+>>>'; flush(6) + if (worldrank == 0) write(6,'(/,a)') ' <<<+- parallelization init -+>>>'; flush(6) call MPI_Comm_size(PETSC_COMM_WORLD,worldsize,err) if (err /= 0) error stop 'Could not determine worldsize' @@ -88,7 +88,7 @@ subroutine parallelization_init !$ DAMASK_NUM_THREADS = 1_pI32 !$ endif !$ endif -!$ write(6,'(a,i8,/)') ' DAMASK_NUM_THREADS: ',DAMASK_NUM_THREADS +!$ write(6,'(a,i8)') ' DAMASK_NUM_THREADS: ',DAMASK_NUM_THREADS !$ call omp_set_num_threads(DAMASK_NUM_THREADS) end subroutine parallelization_init