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)