diff --git a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90
index e7d2d1ab..b9ca76a1 100644
--- a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90
+++ b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90
@@ -75,12 +75,12 @@
         call psb_info(ictxt, me, np)
     	call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/))
     	call psb_get_mpicomm(ictxt1, icomm)
-    	write(*,*)'mumps_bld: +++++>',icomm,ictxt1,mpi_comm_world
+    	write(*,*)'mumps_bld: +++++>',icomm,ictxt1
     	call psb_info(ictxt1, me, np)
     	npr  = np
     else 
         call psb_get_mpicomm(ictxt,icomm)
-    	write(*,*)'mumps_bld: +++++>',icomm,ictxt,mpi_comm_world
+    	write(*,*)'mumps_bld: +++++>',icomm,ictxt
     	call psb_info(ictxt, me, np)
     	npr  = np
     end if
diff --git a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90
index 58f81d51..3afff8c2 100644
--- a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90
+++ b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90
@@ -75,12 +75,12 @@
         call psb_info(ictxt, me, np)
     	call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/))
     	call psb_get_mpicomm(ictxt1, icomm)
-    	write(*,*)'mumps_bld: +++++>',icomm,ictxt1,mpi_comm_world
+    	write(*,*)'mumps_bld: +++++>',icomm,ictxt1
     	call psb_info(ictxt1, me, np)
     	npr  = np
     else 
         call psb_get_mpicomm(ictxt,icomm)
-    	write(*,*)'mumps_bld: +++++>',icomm,ictxt,mpi_comm_world
+    	write(*,*)'mumps_bld: +++++>',icomm,ictxt
     	call psb_info(ictxt, me, np)
     	npr  = np
     end if
diff --git a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90
index d3ed3959..a8cd6d03 100644
--- a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90
+++ b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90
@@ -75,12 +75,12 @@
         call psb_info(ictxt, me, np)
     	call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/))
     	call psb_get_mpicomm(ictxt1, icomm)
-    	write(*,*)'mumps_bld: +++++>',icomm,ictxt1,mpi_comm_world
+    	write(*,*)'mumps_bld: +++++>',icomm,ictxt1
     	call psb_info(ictxt1, me, np)
     	npr  = np
     else 
         call psb_get_mpicomm(ictxt,icomm)
-    	write(*,*)'mumps_bld: +++++>',icomm,ictxt,mpi_comm_world
+    	write(*,*)'mumps_bld: +++++>',icomm,ictxt
     	call psb_info(ictxt, me, np)
     	npr  = np
     end if
diff --git a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90
index 46372988..53d2112f 100644
--- a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90
+++ b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90
@@ -75,12 +75,12 @@
         call psb_info(ictxt, me, np)
     	call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/))
     	call psb_get_mpicomm(ictxt1, icomm)
-    	write(*,*)'mumps_bld: +++++>',icomm,ictxt1,mpi_comm_world
+    	write(*,*)'mumps_bld: +++++>',icomm,ictxt1
     	call psb_info(ictxt1, me, np)
     	npr  = np
     else 
         call psb_get_mpicomm(ictxt,icomm)
-    	write(*,*)'mumps_bld: +++++>',icomm,ictxt,mpi_comm_world
+    	write(*,*)'mumps_bld: +++++>',icomm,ictxt
     	call psb_info(ictxt, me, np)
     	npr  = np
     end if