fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Internal unused var cleanup

Browse Source
stopcriterion
Salvatore Filippone 5 years ago
parent ac1c81f112
commit 1b7bdb437b
4 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/level/mld_c_base_onelev_build.f90
Unescape Escape View File

@ -47,7 +47,6 @@ subroutine mld_c_base_onelev_build(lv,info,amold,vmold,imold)
! Local ! Local
integer(psb_ipk_) :: err,i,k, err_act integer(psb_ipk_) :: err,i,k, err_act
integer(psb_ipk_) :: ictxt, me, np integer(psb_ipk_) :: ictxt, me, np
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_) :: debug_level, debug_unit integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
@ -67,7 +66,6 @@ subroutine mld_c_base_onelev_build(lv,info,amold,vmold,imold)
goto 9999 goto 9999
end if end if
info = psb_success_ info = psb_success_
int_err(1) = 0
ictxt = lv%base_desc%get_ctxt() ictxt = lv%base_desc%get_ctxt()
call psb_info(ictxt,me,np) call psb_info(ictxt,me,np)

2
mlprec/impl/level/mld_d_base_onelev_build.f90
Unescape Escape View File

@ -47,7 +47,6 @@ subroutine mld_d_base_onelev_build(lv,info,amold,vmold,imold)
! Local ! Local
integer(psb_ipk_) :: err,i,k, err_act integer(psb_ipk_) :: err,i,k, err_act
integer(psb_ipk_) :: ictxt, me, np integer(psb_ipk_) :: ictxt, me, np
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_) :: debug_level, debug_unit integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
@ -67,7 +66,6 @@ subroutine mld_d_base_onelev_build(lv,info,amold,vmold,imold)
goto 9999 goto 9999
end if end if
info = psb_success_ info = psb_success_
int_err(1) = 0
ictxt = lv%base_desc%get_ctxt() ictxt = lv%base_desc%get_ctxt()
call psb_info(ictxt,me,np) call psb_info(ictxt,me,np)

2
mlprec/impl/level/mld_s_base_onelev_build.f90
Unescape Escape View File

@ -47,7 +47,6 @@ subroutine mld_s_base_onelev_build(lv,info,amold,vmold,imold)
! Local ! Local
integer(psb_ipk_) :: err,i,k, err_act integer(psb_ipk_) :: err,i,k, err_act
integer(psb_ipk_) :: ictxt, me, np integer(psb_ipk_) :: ictxt, me, np
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_) :: debug_level, debug_unit integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
@ -67,7 +66,6 @@ subroutine mld_s_base_onelev_build(lv,info,amold,vmold,imold)
goto 9999 goto 9999
end if end if
info = psb_success_ info = psb_success_
int_err(1) = 0
ictxt = lv%base_desc%get_ctxt() ictxt = lv%base_desc%get_ctxt()
call psb_info(ictxt,me,np) call psb_info(ictxt,me,np)

2
mlprec/impl/level/mld_z_base_onelev_build.f90
Unescape Escape View File

@ -47,7 +47,6 @@ subroutine mld_z_base_onelev_build(lv,info,amold,vmold,imold)
! Local ! Local
integer(psb_ipk_) :: err,i,k, err_act integer(psb_ipk_) :: err,i,k, err_act
integer(psb_ipk_) :: ictxt, me, np integer(psb_ipk_) :: ictxt, me, np
integer(psb_ipk_) :: int_err(5)
integer(psb_ipk_) :: debug_level, debug_unit integer(psb_ipk_) :: debug_level, debug_unit
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
@ -67,7 +66,6 @@ subroutine mld_z_base_onelev_build(lv,info,amold,vmold,imold)
goto 9999 goto 9999
end if end if
info = psb_success_ info = psb_success_
int_err(1) = 0
ictxt = lv%base_desc%get_ctxt() ictxt = lv%base_desc%get_ctxt()
call psb_info(ictxt,me,np) call psb_info(ictxt,me,np)

Write Preview
Loading…
Cancel
Save