From 2a91be9acc620ea483a502f2c9921c0078137df6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 1 Oct 2013 15:59:10 +0000 Subject: [PATCH] *** empty log message *** --- base/internals/psi_desc_index.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/base/internals/psi_desc_index.F90 b/base/internals/psi_desc_index.F90 index 46e39932..a3a91cc7 100644 --- a/base/internals/psi_desc_index.F90 +++ b/base/internals/psi_desc_index.F90 @@ -310,14 +310,14 @@ subroutine psi_desc_index(desc,index_in,dep_list,& i = i + 1 nerv = sdsz(proc+1) desc_index(i) = nerv - call psi_idx_cnv(nerv,sndbuf(bsdindx(proc+1)+1:bsdindx(proc+1)+nerv),& - & desc_index(i+1:i+nerv),desc,info) + call desc%indxmap%g2l(sndbuf(bsdindx(proc+1)+1:bsdindx(proc+1)+nerv),& + & desc_index(i+1:i+nerv),info) i = i + nerv + 1 nesd = rvsz(proc+1) desc_index(i) = nesd - call psi_idx_cnv(nesd,rcvbuf(brvindx(proc+1)+1:brvindx(proc+1)+nesd),& - & desc_index(i+1:i+nesd),desc,info) + call desc%indxmap%g2l(rcvbuf(brvindx(proc+1)+1:brvindx(proc+1)+nesd),& + & desc_index(i+1:i+nesd),info) i = i + nesd + 1 end do desc_index(i) = - 1