fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-16 10:52:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2

Browse Source 
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.
This commit is contained in:
Salvatore Filippone
2012-02-27 18:31:47 +00:00
parent d02ae5c041
commit efcaa9c31e
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_cmlprec_bld.f90
+1 -1
View File
@@ -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
mlprec/impl/mld_dmlprec_bld.f90
+1 -1
View File
@@ -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
mlprec/impl/mld_smlprec_bld.f90
+1 -1
View File
@@ -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
mlprec/impl/mld_zmlprec_bld.f90
+1 -1
View File
@@ -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