mld2p4-NewML

mlprec/impl/mld_cmlprec_bld.f90 mlprec/impl/mld_dmlprec_bld.f90 mlprec/impl/mld_smlprec_bld.f90 mlprec/impl/mld_zmlprec_bld.f90 Fix silly bug in broadcast.
13 years ago · 3203682a24
parent d53eae40a2
commit 3203682a24
5 changed files with 585 additions and 585 deletions
--- 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
--- 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
--- 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
--- 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