Restricted WSMP screen output of dparm(4) and dparm(5) to the master process

src/solve_with_pwssmp.f90

@@ -222,8 +222,10 @@ call pwssmp(n_iproc,ia,ja,avals,diag,perm,invp,b,ldb,nrhs,aux,naux,mrp,iparm,dpa
 
 time2=mpi_wtime()
 
-write(*,'(a,e15.7)') shift//'wsmp: avals min on main diagonal (dparm(5)): ',dparm(5)
-write(*,'(a,e15.7)') shift//'wsmp: avals max on main diagonal (dparm(4)): ',dparm(4)
+if (iproc==0) then
+  write(*,'(a,e15.7)') shift//'wsmp: avals min on main diagonal (dparm(5)): ',dparm(5)
+  write(*,'(a,e15.7)') shift//'wsmp: avals max on main diagonal (dparm(4)): ',dparm(4)
+endif
 
 if (iproc.eq.0) then
    if (iparm(64) .gt. 0) then