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

Internal unused var cleanup

Browse Source
This commit is contained in:
Salvatore Filippone
2020-02-13 17:36:27 +00:00
parent ac1c81f112
commit 1b7bdb437b
4 changed files with 0 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_build.f90
-2
View File
@@ -47,7 +47,6 @@ subroutine mld_c_base_onelev_build(lv,info,amold,vmold,imold)
! Local
integer(psb_ipk_) :: err,i,k, err_act
integer(psb_ipk_) :: ictxt, me, np
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name, ch_err
@@ -67,7 +66,6 @@ subroutine mld_c_base_onelev_build(lv,info,amold,vmold,imold)
goto 9999
end if
info = psb_success_
int_err(1) = 0
ictxt = lv%base_desc%get_ctxt()
call psb_info(ictxt,me,np)
mlprec/impl/level/mld_d_base_onelev_build.f90
-2
View File
@@ -47,7 +47,6 @@ subroutine mld_d_base_onelev_build(lv,info,amold,vmold,imold)
! Local
integer(psb_ipk_) :: err,i,k, err_act
integer(psb_ipk_) :: ictxt, me, np
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name, ch_err
@@ -67,7 +66,6 @@ subroutine mld_d_base_onelev_build(lv,info,amold,vmold,imold)
goto 9999
end if
info = psb_success_
int_err(1) = 0
ictxt = lv%base_desc%get_ctxt()
call psb_info(ictxt,me,np)
mlprec/impl/level/mld_s_base_onelev_build.f90
-2
View File
@@ -47,7 +47,6 @@ subroutine mld_s_base_onelev_build(lv,info,amold,vmold,imold)
! Local
integer(psb_ipk_) :: err,i,k, err_act
integer(psb_ipk_) :: ictxt, me, np
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name, ch_err
@@ -67,7 +66,6 @@ subroutine mld_s_base_onelev_build(lv,info,amold,vmold,imold)
goto 9999
end if
info = psb_success_
int_err(1) = 0
ictxt = lv%base_desc%get_ctxt()
call psb_info(ictxt,me,np)
mlprec/impl/level/mld_z_base_onelev_build.f90
-2
View File
@@ -47,7 +47,6 @@ subroutine mld_z_base_onelev_build(lv,info,amold,vmold,imold)
! Local
integer(psb_ipk_) :: err,i,k, err_act
integer(psb_ipk_) :: ictxt, me, np
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name, ch_err
@@ -67,7 +66,6 @@ subroutine mld_z_base_onelev_build(lv,info,amold,vmold,imold)
goto 9999
end if
info = psb_success_
int_err(1) = 0
ictxt = lv%base_desc%get_ctxt()
call psb_info(ictxt,me,np)