Fixed error in swapdatav

19 years ago · bd51cb865d
parent 6ef0b5d306
commit bd51cb865d
1 changed files with 2 additions and 2 deletions
--- a/src/internals/psi_dswapdata.f90
+++ b/src/internals/psi_dswapdata.f90
@ -828,12 +828,12 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data)
          end if
          idx_pt = point_to_proc+psb_elem_recv_
          rcv_pt = brvidx(proc_to_comm)
-          call psi_sct(nerv,n,d_idx(idx_pt:idx_pt+nerv-1),&
+          call psi_sct(nerv,d_idx(idx_pt:idx_pt+nerv-1),&
               & rcvbuf(rcv_pt:rcv_pt+n*nerv-1),beta,y)
        else
          idx_pt = point_to_proc+psb_elem_recv_
          snd_pt = bsdidx(proc_to_comm)
-          call psi_sct(nerv,n,d_idx(idx_pt:idx_pt+nerv-1),&
+          call psi_sct(nerv,d_idx(idx_pt:idx_pt+nerv-1),&
               & sndbuf(snd_pt:snd_pt+n*nesd-1),beta,y)

        end if