From bae5cfcf89a8fed9faa940bc579a982a144e5a2f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 18 Aug 2015 16:07:01 +0000 Subject: [PATCH] named if --- code/homogenization.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/homogenization.f90 b/code/homogenization.f90 index 15781727d..9aaa7800f 100644 --- a/code/homogenization.f90 +++ b/code/homogenization.f90 @@ -210,7 +210,7 @@ subroutine homogenization_init !-------------------------------------------------------------------------------------------------- ! write description file for homogenization output - if (worldrank == 0_pInt) then + mainProcess2: if (worldrank == 0) then call IO_write_jobFile(FILEUNIT,'outputHomogenization') do p = 1,material_Nhomogenization if (any(material_homog == p)) then @@ -383,7 +383,7 @@ subroutine homogenization_init endif enddo close(FILEUNIT) - endif + endif mainProcess2 !-------------------------------------------------------------------------------------------------- ! allocate and initialize global variables