From 7da9421744a0cf977fe4f24d810c4b8f3f78679b Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Tue, 6 Dec 2022 13:01:13 -0300
Subject: [PATCH] BLOCKS: Do nothing if processes are equal in
 change_blocks_process().

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 sources/blocks.F90 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/sources/blocks.F90 b/sources/blocks.F90
index 34fab4d..e1c84cb 100644
--- a/sources/blocks.F90
+++ b/sources/blocks.F90
@@ -3070,7 +3070,8 @@ module blocks
 ! subroutine CHANGE_BLOCKS_PROCESS:
 ! --------------------------------
 !
-!   Subroutine switches meta blocks which belong to old process to the new one.
+!   Subroutine changes the process of meta blocks associated with the process
+!   npold to npnew.
 !
 !   Arguments:
 !
@@ -3089,15 +3090,14 @@ module blocks
 
 !-------------------------------------------------------------------------------
 !
+    if (npnew == npold) return
+
     pmeta => list_meta
     do while(associated(pmeta))
-
-! if the meta block belongs to process npold, switch it to process npnew
-!
       if (pmeta%process == npold) pmeta%process = npnew
 
       pmeta => pmeta%next
-    end do ! meta blocks
+    end do
 
 !-------------------------------------------------------------------------------
 !