diff --git a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90
index dfab182b..a1c8a9e1 100644
--- a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90
+++ b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90
@@ -78,14 +78,14 @@ subroutine c_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
   call psb_info(ictxt, iam, np)      
   if (sv%ipar(1) == mld_local_solver_ ) then
     call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/iam/))
-    icomm = psb_get_mpicomm(ictxt1)
+    icomm = psb_get_mpi_comm(ictxt1)
     allocate(sv%local_ictxt,stat=info)
     sv%local_ictxt = ictxt1
     !write(*,*)iam,'mumps_bld: local +++++>',icomm,sv%local_ictxt
     call psb_info(ictxt1, me, np)
     npr  = np
   else if (sv%ipar(1) == mld_global_solver_ ) then
-    icomm = psb_get_mpicomm(ictxt)
+    icomm = psb_get_mpi_comm(ictxt)
     !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt
     call psb_info(ictxt, iam, np)
     me = iam 
diff --git a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90
index f63e1947..bcc4dc26 100644
--- a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90
+++ b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90
@@ -78,14 +78,14 @@ subroutine d_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
   call psb_info(ictxt, iam, np)      
   if (sv%ipar(1) == mld_local_solver_ ) then
     call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/iam/))
-    icomm = psb_get_mpicomm(ictxt1)
+    icomm = psb_get_mpi_comm(ictxt1)
     allocate(sv%local_ictxt,stat=info)
     sv%local_ictxt = ictxt1
     !write(*,*)iam,'mumps_bld: local +++++>',icomm,sv%local_ictxt
     call psb_info(ictxt1, me, np)
     npr  = np
   else if (sv%ipar(1) == mld_global_solver_ ) then
-    icomm = psb_get_mpicomm(ictxt)
+    icomm = psb_get_mpi_comm(ictxt)
     !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt
     call psb_info(ictxt, iam, np)
     me = iam 
diff --git a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90
index cbdfc151..f1c7ebc3 100644
--- a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90
+++ b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90
@@ -78,14 +78,14 @@ subroutine s_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
   call psb_info(ictxt, iam, np)      
   if (sv%ipar(1) == mld_local_solver_ ) then
     call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/iam/))
-    icomm = psb_get_mpicomm(ictxt1)
+    icomm = psb_get_mpi_comm(ictxt1)
     allocate(sv%local_ictxt,stat=info)
     sv%local_ictxt = ictxt1
     !write(*,*)iam,'mumps_bld: local +++++>',icomm,sv%local_ictxt
     call psb_info(ictxt1, me, np)
     npr  = np
   else if (sv%ipar(1) == mld_global_solver_ ) then
-    icomm = psb_get_mpicomm(ictxt)
+    icomm = psb_get_mpi_comm(ictxt)
     !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt
     call psb_info(ictxt, iam, np)
     me = iam 
diff --git a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90
index 7ed84f2f..bcc88493 100644
--- a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90
+++ b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90
@@ -78,14 +78,14 @@ subroutine z_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
   call psb_info(ictxt, iam, np)      
   if (sv%ipar(1) == mld_local_solver_ ) then
     call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/iam/))
-    icomm = psb_get_mpicomm(ictxt1)
+    icomm = psb_get_mpi_comm(ictxt1)
     allocate(sv%local_ictxt,stat=info)
     sv%local_ictxt = ictxt1
     !write(*,*)iam,'mumps_bld: local +++++>',icomm,sv%local_ictxt
     call psb_info(ictxt1, me, np)
     npr  = np
   else if (sv%ipar(1) == mld_global_solver_ ) then
-    icomm = psb_get_mpicomm(ictxt)
+    icomm = psb_get_mpi_comm(ictxt)
     !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt
     call psb_info(ictxt, iam, np)
     me = iam