From a84ca2d35122d996f4c0b0b306593b9d9ee7755b Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 31 Jan 2012 13:08:28 +0000 Subject: [PATCH] *** empty log message *** --- base/tools/psb_icdasb.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/base/tools/psb_icdasb.F90 b/base/tools/psb_icdasb.F90 index 41c91a29..c6c61311 100644 --- a/base/tools/psb_icdasb.F90 +++ b/base/tools/psb_icdasb.F90 @@ -61,8 +61,8 @@ subroutine psb_icdasb(desc_a,info,ext_hv) integer(psb_ipk_) :: int_err(5) integer(psb_ipk_),allocatable :: ovrlap_index(:),halo_index(:), ext_index(:) - integer(psb_ipk_) :: i,np,me, n_col, dectype, err_act, icomm - integer(psb_ipk_) :: ictxt,n_row + integer(psb_ipk_) :: i, n_col, dectype, err_act, n_row + integer(psb_mpik_) :: np,me, icomm, ictxt logical :: ext_hv_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name