From c2ee7bd16765d87da16725a69d86364202f78630 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 5 May 2016 08:36:05 +0000 Subject: [PATCH] mld2p4: mlprec/impl/mld_c_dec_map_bld.f90 mlprec/impl/mld_d_dec_map_bld.f90 mlprec/impl/mld_z_dec_map_bld.f90 Fix dec_map XZERO. --- mlprec/impl/mld_c_dec_map_bld.f90 | 2 +- mlprec/impl/mld_d_dec_map_bld.f90 | 2 +- mlprec/impl/mld_z_dec_map_bld.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/mlprec/impl/mld_c_dec_map_bld.f90 b/mlprec/impl/mld_c_dec_map_bld.f90 index 602f006b..687f7161 100644 --- a/mlprec/impl/mld_c_dec_map_bld.f90 +++ b/mlprec/impl/mld_c_dec_map_bld.f90 @@ -204,7 +204,7 @@ subroutine mld_c_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info) ! isz = nr+1 ia = -1 - cpling = szero + cpling = czero call a%csget(i,i,nz,irow,icol,val,info) if (info /= psb_success_) then info=psb_err_from_subroutine_ diff --git a/mlprec/impl/mld_d_dec_map_bld.f90 b/mlprec/impl/mld_d_dec_map_bld.f90 index fa9514bd..bc0d40bf 100644 --- a/mlprec/impl/mld_d_dec_map_bld.f90 +++ b/mlprec/impl/mld_d_dec_map_bld.f90 @@ -204,7 +204,7 @@ subroutine mld_d_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info) ! isz = nr+1 ia = -1 - cpling = szero + cpling = dzero call a%csget(i,i,nz,irow,icol,val,info) if (info /= psb_success_) then info=psb_err_from_subroutine_ diff --git a/mlprec/impl/mld_z_dec_map_bld.f90 b/mlprec/impl/mld_z_dec_map_bld.f90 index c8d49502..b578cc78 100644 --- a/mlprec/impl/mld_z_dec_map_bld.f90 +++ b/mlprec/impl/mld_z_dec_map_bld.f90 @@ -204,7 +204,7 @@ subroutine mld_z_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info) ! isz = nr+1 ia = -1 - cpling = szero + cpling = zzero call a%csget(i,i,nz,irow,icol,val,info) if (info /= psb_success_) then info=psb_err_from_subroutine_