*** empty log message ***

13 years ago · a84ca2d351
parent de5a399d55
commit a84ca2d351
1 changed files with 2 additions and 2 deletions
--- 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