Skip to content
Snippets Groups Projects
Commit aaceb561 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

reduce the amount of terminal output

parent d9e757c0
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment