From aaceb561ed4fed6e2fec7251d8dfe5ee747fc1bf Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Thu, 27 May 2021 16:32:00 +0200
Subject: [PATCH] reduce the amount of terminal output
---
src/collision_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/collision_mod.F90 b/src/collision_mod.F90
index 8960f01a..9bc9ade9 100644
--- a/src/collision_mod.F90
+++ b/src/collision_mod.F90
@@ -427,7 +427,7 @@ CONTAINS
CALL allocate_array( CiepjF_kp, 1,(pmaxe+1)*(jmaxe+1), 1,(pmaxe+1)*(jmaxe+1), ikps_C,ikpe_C)
! Opening the compiled cosolver matrices results
- write(*,*) 'Opening ', mat_file
+ if(my_id.EQ.0)write(*,*) mat_file
CALL openf(mat_file,fid, 'r', 'D', mpicomm=comm_p);
CALL getarr(fid, '/Pmaxe', p_r) ! Get the dimension of the stored matrices
--
GitLab