From 19e89c4dd2705daa4bf13570a5b7772071ebf916 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Thu, 15 Jul 2021 17:25:32 -0300 Subject: [PATCH] MPITOOLS: Add maximum rank of the node. Signed-off-by: Grzegorz Kowal --- sources/mpitools.F90 | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/sources/mpitools.F90 b/sources/mpitools.F90 index 7cef07b..d68bf24 100644 --- a/sources/mpitools.F90 +++ b/sources/mpitools.F90 @@ -70,7 +70,7 @@ module mpitools ! MPI global variables ! integer(kind=4), save :: nproc, nprocs, nodes, node, lprocs, lproc - integer(kind=4), save :: npmax, npairs + integer(kind=4), save :: npmax, lpmax, npairs logical , save :: master = .true. ! allocatable array for processor pairs @@ -94,7 +94,7 @@ module mpitools ! declare public variables ! public :: master, nproc, nprocs, nodes, node, lprocs, lproc - public :: npmax, npairs, pairs + public :: npmax, lpmax, npairs, pairs !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! @@ -173,6 +173,8 @@ module mpitools nodes = 1 node = 0 lproc = 0 + lprocs = 1 + lpmax = 0 #ifdef MPI ! initialize the MPI parallelization @@ -241,6 +243,7 @@ module mpitools "Could not get the number of node processes!" status = 1 end if + lpmax = lprocs - 1 nodes = nprocs / lprocs node = nproc / lprocs call MPI_Comm_rank(comm, lproc, ierror)