From cff029ab66733182e01bae440d4d7564289ef35d Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 14 Dec 2011 14:11:18 +0000 Subject: [PATCH] psblas3 base/tools/psb_c_map.f90 base/tools/psb_d_map.f90 base/tools/psb_s_map.f90 base/tools/psb_z_map.f90 Fix to use %get_vect() --- base/tools/psb_c_map.f90 | 12 ++++++------ base/tools/psb_d_map.f90 | 12 ++++++------ base/tools/psb_s_map.f90 | 12 ++++++------ base/tools/psb_z_map.f90 | 12 ++++++------ 4 files changed, 24 insertions(+), 24 deletions(-) diff --git a/base/tools/psb_c_map.f90 b/base/tools/psb_c_map.f90 index f2e31138..de4b670c 100644 --- a/base/tools/psb_c_map.f90 +++ b/base/tools/psb_c_map.f90 @@ -145,7 +145,7 @@ subroutine psb_c_map_X2Y_vect(alpha,x,beta,y,map,info,work) if (info == psb_success_) call psb_halo(x,map%p_desc_X,info,work=work) if (info == psb_success_) call psb_csmm(cone,map%map_X2Y,x,czero,yt,info) if ((info == psb_success_) .and. map%p_desc_Y%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -167,12 +167,12 @@ subroutine psb_c_map_X2Y_vect(alpha,x,beta,y,map,info,work) call xt%bld(nc1,mold=x%v) call yt%bld(nc2,mold=y%v) - xta = x + xta = x%get_vect() call xt%set(xta(1:nr1)) if (info == psb_success_) call psb_halo(xt,map%desc_X,info,work=work) if (info == psb_success_) call psb_csmm(cone,map%map_X2Y,xt,czero,yt,info) if ((info == psb_success_) .and. map%desc_Y%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -308,7 +308,7 @@ subroutine psb_c_map_Y2X_vect(alpha,x,beta,y,map,info,work) if (info == psb_success_) call psb_halo(x,map%p_desc_Y,info,work=work) if (info == psb_success_) call psb_csmm(cone,map%map_Y2X,x,czero,yt,info) if ((info == psb_success_) .and. map%p_desc_X%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -328,13 +328,13 @@ subroutine psb_c_map_Y2X_vect(alpha,x,beta,y,map,info,work) nc2 = map%desc_X%get_local_cols() call xt%bld(nc1,mold=x%v) call yt%bld(nc2,mold=y%v) - xta = x + xta = x%get_vect() call xt%set(xta(1:nr1)) if (info == psb_success_) call psb_halo(xt,map%desc_Y,info,work=work) if (info == psb_success_) call psb_csmm(cone,map%map_Y2X,xt,czero,yt,info) if ((info == psb_success_) .and. map%desc_X%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if diff --git a/base/tools/psb_d_map.f90 b/base/tools/psb_d_map.f90 index d095be96..8ea74a05 100644 --- a/base/tools/psb_d_map.f90 +++ b/base/tools/psb_d_map.f90 @@ -145,7 +145,7 @@ subroutine psb_d_map_X2Y_vect(alpha,x,beta,y,map,info,work) if (info == psb_success_) call psb_halo(x,map%p_desc_X,info,work=work) if (info == psb_success_) call psb_csmm(done,map%map_X2Y,x,dzero,yt,info) if ((info == psb_success_) .and. map%p_desc_Y%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -167,12 +167,12 @@ subroutine psb_d_map_X2Y_vect(alpha,x,beta,y,map,info,work) call xt%bld(nc1,mold=x%v) call yt%bld(nc2,mold=y%v) - xta = x + xta = x%get_vect() call xt%set(xta(1:nr1)) if (info == psb_success_) call psb_halo(xt,map%desc_X,info,work=work) if (info == psb_success_) call psb_csmm(done,map%map_X2Y,xt,dzero,yt,info) if ((info == psb_success_) .and. map%desc_Y%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -308,7 +308,7 @@ subroutine psb_d_map_Y2X_vect(alpha,x,beta,y,map,info,work) if (info == psb_success_) call psb_halo(x,map%p_desc_Y,info,work=work) if (info == psb_success_) call psb_csmm(done,map%map_Y2X,x,dzero,yt,info) if ((info == psb_success_) .and. map%p_desc_X%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -328,13 +328,13 @@ subroutine psb_d_map_Y2X_vect(alpha,x,beta,y,map,info,work) nc2 = map%desc_X%get_local_cols() call xt%bld(nc1,mold=x%v) call yt%bld(nc2,mold=y%v) - xta = x + xta = x%get_vect() call xt%set(xta(1:nr1)) if (info == psb_success_) call psb_halo(xt,map%desc_Y,info,work=work) if (info == psb_success_) call psb_csmm(done,map%map_Y2X,xt,dzero,yt,info) if ((info == psb_success_) .and. map%desc_X%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if diff --git a/base/tools/psb_s_map.f90 b/base/tools/psb_s_map.f90 index f0e22888..1f013aeb 100644 --- a/base/tools/psb_s_map.f90 +++ b/base/tools/psb_s_map.f90 @@ -145,7 +145,7 @@ subroutine psb_s_map_X2Y_vect(alpha,x,beta,y,map,info,work) if (info == psb_success_) call psb_halo(x,map%p_desc_X,info,work=work) if (info == psb_success_) call psb_csmm(sone,map%map_X2Y,x,szero,yt,info) if ((info == psb_success_) .and. map%p_desc_Y%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -167,12 +167,12 @@ subroutine psb_s_map_X2Y_vect(alpha,x,beta,y,map,info,work) call xt%bld(nc1,mold=x%v) call yt%bld(nc2,mold=y%v) - xta = x + xta = x%get_vect() call xt%set(xta(1:nr1)) if (info == psb_success_) call psb_halo(xt,map%desc_X,info,work=work) if (info == psb_success_) call psb_csmm(sone,map%map_X2Y,xt,szero,yt,info) if ((info == psb_success_) .and. map%desc_Y%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -308,7 +308,7 @@ subroutine psb_s_map_Y2X_vect(alpha,x,beta,y,map,info,work) if (info == psb_success_) call psb_halo(x,map%p_desc_Y,info,work=work) if (info == psb_success_) call psb_csmm(sone,map%map_Y2X,x,szero,yt,info) if ((info == psb_success_) .and. map%p_desc_X%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -328,13 +328,13 @@ subroutine psb_s_map_Y2X_vect(alpha,x,beta,y,map,info,work) nc2 = map%desc_X%get_local_cols() call xt%bld(nc1,mold=x%v) call yt%bld(nc2,mold=y%v) - xta = x + xta = x%get_vect() call xt%set(xta(1:nr1)) if (info == psb_success_) call psb_halo(xt,map%desc_Y,info,work=work) if (info == psb_success_) call psb_csmm(sone,map%map_Y2X,xt,szero,yt,info) if ((info == psb_success_) .and. map%desc_X%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if diff --git a/base/tools/psb_z_map.f90 b/base/tools/psb_z_map.f90 index 244ef70e..88e878a1 100644 --- a/base/tools/psb_z_map.f90 +++ b/base/tools/psb_z_map.f90 @@ -145,7 +145,7 @@ subroutine psb_z_map_X2Y_vect(alpha,x,beta,y,map,info,work) if (info == psb_success_) call psb_halo(x,map%p_desc_X,info,work=work) if (info == psb_success_) call psb_csmm(zone,map%map_X2Y,x,zzero,yt,info) if ((info == psb_success_) .and. map%p_desc_Y%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -167,12 +167,12 @@ subroutine psb_z_map_X2Y_vect(alpha,x,beta,y,map,info,work) call xt%bld(nc1,mold=x%v) call yt%bld(nc2,mold=y%v) - xta = x + xta = x%get_vect() call xt%set(xta(1:nr1)) if (info == psb_success_) call psb_halo(xt,map%desc_X,info,work=work) if (info == psb_success_) call psb_csmm(zone,map%map_X2Y,xt,zzero,yt,info) if ((info == psb_success_) .and. map%desc_Y%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -308,7 +308,7 @@ subroutine psb_z_map_Y2X_vect(alpha,x,beta,y,map,info,work) if (info == psb_success_) call psb_halo(x,map%p_desc_Y,info,work=work) if (info == psb_success_) call psb_csmm(zone,map%map_Y2X,x,zzero,yt,info) if ((info == psb_success_) .and. map%p_desc_X%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if @@ -328,13 +328,13 @@ subroutine psb_z_map_Y2X_vect(alpha,x,beta,y,map,info,work) nc2 = map%desc_X%get_local_cols() call xt%bld(nc1,mold=x%v) call yt%bld(nc2,mold=y%v) - xta = x + xta = x%get_vect() call xt%set(xta(1:nr1)) if (info == psb_success_) call psb_halo(xt,map%desc_Y,info,work=work) if (info == psb_success_) call psb_csmm(zone,map%map_Y2X,xt,zzero,yt,info) if ((info == psb_success_) .and. map%desc_X%is_repl()) then - yta = yt + yta = yt%get_vect() call psb_sum(ictxt,yta(1:nr2)) call yt%set(yta) end if