diff --git a/src/collision_mod.F90 b/src/collision_mod.F90
index 8960f01a0cd7c2816266f3719132be8fea7fe84d..9bc9ade92586b35a80b74978dc0216f5a9f59e8c 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