diff --git a/mlprec/impl/mld_cmlprec_bld.f90 b/mlprec/impl/mld_cmlprec_bld.f90
index b1a7ddee..b3d6430a 100644
--- a/mlprec/impl/mld_cmlprec_bld.f90
+++ b/mlprec/impl/mld_cmlprec_bld.f90
@@ -190,7 +190,7 @@ subroutine mld_cmlprec_bld(a,desc_a,p,info,amold,vmold)
       ! Check on the iprcparm contents: they should be the same
       ! on all processes.
       !
-      call psb_bcast(ictxt,p%precv(1)%parms)
+      call psb_bcast(ictxt,p%precv(i)%parms)
 
       !
       ! Sanity checks on the parameters
diff --git a/mlprec/impl/mld_dmlprec_bld.f90 b/mlprec/impl/mld_dmlprec_bld.f90
index 6ee1ed54..0051fe69 100644
--- a/mlprec/impl/mld_dmlprec_bld.f90
+++ b/mlprec/impl/mld_dmlprec_bld.f90
@@ -190,7 +190,7 @@ subroutine mld_dmlprec_bld(a,desc_a,p,info,amold,vmold)
       ! Check on the iprcparm contents: they should be the same
       ! on all processes.
       !
-      call psb_bcast(ictxt,p%precv(1)%parms)
+      call psb_bcast(ictxt,p%precv(i)%parms)
 
       !
       ! Sanity checks on the parameters
diff --git a/mlprec/impl/mld_smlprec_bld.f90 b/mlprec/impl/mld_smlprec_bld.f90
index 53a74564..d49576d6 100644
--- a/mlprec/impl/mld_smlprec_bld.f90
+++ b/mlprec/impl/mld_smlprec_bld.f90
@@ -190,7 +190,7 @@ subroutine mld_smlprec_bld(a,desc_a,p,info,amold,vmold)
       ! Check on the iprcparm contents: they should be the same
       ! on all processes.
       !
-      call psb_bcast(ictxt,p%precv(1)%parms)
+      call psb_bcast(ictxt,p%precv(i)%parms)
 
       !
       ! Sanity checks on the parameters
diff --git a/mlprec/impl/mld_zmlprec_bld.f90 b/mlprec/impl/mld_zmlprec_bld.f90
index ccb97437..8f1a949a 100644
--- a/mlprec/impl/mld_zmlprec_bld.f90
+++ b/mlprec/impl/mld_zmlprec_bld.f90
@@ -190,7 +190,7 @@ subroutine mld_zmlprec_bld(a,desc_a,p,info,amold,vmold)
       ! Check on the iprcparm contents: they should be the same
       ! on all processes.
       !
-      call psb_bcast(ictxt,p%precv(1)%parms)
+      call psb_bcast(ictxt,p%precv(i)%parms)
 
       !
       ! Sanity checks on the parameters