fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2012-01-31 13:08:28 +00:00
parent de5a399d55
commit a84ca2d351
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_icdasb.F90
+2 -2
View File
@@ -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