From 3ad63cb966848e78c4f919458029b06516b9b585 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 29 Sep 2020 09:22:15 +0200 Subject: [PATCH] don't open closed units (MPI) --- src/DAMASK_interface.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/DAMASK_interface.f90 b/src/DAMASK_interface.f90 index d34034d0d..39f77012c 100644 --- a/src/DAMASK_interface.f90 +++ b/src/DAMASK_interface.f90 @@ -82,7 +82,7 @@ subroutine DAMASK_interface_init print'(/,a)', ' <<<+- DAMASK_interface init -+>>>' - open(OUTPUT_unit, encoding='UTF-8') ! for special characters in output + if(worldrank == 0) open(OUTPUT_UNIT, encoding='UTF-8') ! for special characters in output ! http://patorjk.com/software/taag/#p=display&f=Lean&t=DAMASK%203 #ifdef DEBUG