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

Cosmetic cleanup

Browse Source
This commit is contained in:
Salvatore Filippone
2020-02-15 15:08:33 +00:00
parent d342e2d59e
commit d3e4a091e8
3 changed files with 13 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/desc/psb_gen_block_map_mod.F90
+5 -5
View File
@@ -127,7 +127,7 @@ module psb_gen_block_map_mod
#if defined(IPK4) && defined(LPK8)
private :: l_gen_block_search
#endif
interface gen_block_search
module procedure i_gen_block_search
#if defined(IPK4) && defined(LPK8)
@@ -373,7 +373,7 @@ contains
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask(:)
logical, intent(in), optional :: owned
integer(psb_ipk_) :: i
integer(psb_lpk_) :: i
logical :: owned_
info = 0
@@ -431,7 +431,7 @@ contains
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: mask(:)
logical, intent(in), optional :: owned
integer(psb_ipk_) :: is, im, i
integer(psb_lpk_) :: is, im, i
logical :: owned_
info = 0
@@ -1527,7 +1527,7 @@ contains
logical, intent(in), optional :: mask(:)
integer(psb_ipk_), intent(in), optional :: lidx(:)
integer(psb_ipk_) :: i, nv, is, ix
integer(psb_lpk_) :: i, nv, is, ix
integer(psb_lpk_) :: ip, lip, lnxt
integer(psb_ipk_) :: nxt
@@ -1732,7 +1732,7 @@ contains
logical, intent(in), optional :: mask(:)
integer(psb_ipk_), intent(in), optional :: lidx(:)
integer(psb_ipk_) :: i, nv, is, ix, im
integer(psb_lpk_) :: i, nv, is, ix, im
integer(psb_lpk_) :: ip, lip, lnxt
integer(psb_ipk_) :: nxt
base/tools/psb_cd_renum_block.F90
+3 -3
View File
@@ -53,9 +53,9 @@ subroutine psb_cd_renum_block(desc_in, desc_out, info)
type(psb_gen_block_map), allocatable :: blck_map
integer(psb_ipk_), allocatable :: lidx(:),reflidx(:)
integer(psb_lpk_), allocatable :: gidx(:),vnl(:)
integer(psb_ipk_) :: i,n_row, n_col
integer(psb_lpk_) :: li,n_glob_row, n_glob_col
integer(psb_ipk_) :: np,me,ictxt, err_act
integer(psb_ipk_) :: i, n_row, n_col
integer(psb_lpk_) :: li, n_glob_row, n_glob_col
integer(psb_ipk_) :: np, me, ictxt, err_act
integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name
base/tools/psb_glob_to_loc.f90
+5 -7
View File
@@ -60,10 +60,9 @@ subroutine psb_glob_to_loc2v(x,y,desc_a,info,iact,owned)
!....locals....
integer(psb_ipk_) :: n, ictxt, iam, np
character :: act
integer(psb_ipk_) :: int_err(5), err_act
integer(psb_ipk_), parameter :: zero=0
character(len=20) :: name
character :: act
integer(psb_ipk_) :: err_act
character(len=20) :: name
if(psb_get_errstatus() /= 0) return
info=psb_success_
@@ -181,10 +180,9 @@ subroutine psb_glob_to_loc1v(x,desc_a,info,iact,owned)
!....locals....
integer(psb_ipk_) :: n
character :: act
character :: act
integer(psb_ipk_) :: err_act
integer(psb_ipk_), parameter :: zero=0
character(len=20) :: name
character(len=20) :: name
integer(psb_ipk_) :: ictxt, iam, np
if(psb_get_errstatus() /= 0) return