fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'new-context' into remap-coarse

Browse Source
This commit is contained in:
Salvatore Filippone
2020-12-03 10:18:01 +01:00
parent 577b1886d5 534ca2043d
commit e3ad1a8516
12 changed files with 0 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/solver/amg_c_ainv_solver_descr.f90
-1
View File
@@ -48,7 +48,6 @@ subroutine amg_c_ainv_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_c_ainv_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_c_invk_solver_descr.f90
-2
View File
@@ -48,8 +48,6 @@ subroutine amg_c_invk_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: me, np
type(psb_ctxt_type) :: ctxt
character(len=20), parameter :: name='amg_c_invk_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_c_invt_solver_descr.f90
-1
View File
@@ -48,7 +48,6 @@ subroutine amg_c_invt_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_c_invt_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_d_ainv_solver_descr.f90
-1
View File
@@ -48,7 +48,6 @@ subroutine amg_d_ainv_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_d_ainv_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_d_invk_solver_descr.f90
-2
View File
@@ -48,8 +48,6 @@ subroutine amg_d_invk_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: me, np
type(psb_ctxt_type) :: ctxt
character(len=20), parameter :: name='amg_d_invk_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_d_invt_solver_descr.f90
-1
View File
@@ -48,7 +48,6 @@ subroutine amg_d_invt_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_d_invt_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_s_ainv_solver_descr.f90
-1
View File
@@ -48,7 +48,6 @@ subroutine amg_s_ainv_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_s_ainv_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_s_invk_solver_descr.f90
-2
View File
@@ -48,8 +48,6 @@ subroutine amg_s_invk_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: me, np
type(psb_ctxt_type) :: ctxt
character(len=20), parameter :: name='amg_s_invk_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_s_invt_solver_descr.f90
-1
View File
@@ -48,7 +48,6 @@ subroutine amg_s_invt_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_s_invt_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_z_ainv_solver_descr.f90
-1
View File
@@ -48,7 +48,6 @@ subroutine amg_z_ainv_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_z_ainv_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_z_invk_solver_descr.f90
-2
View File
@@ -48,8 +48,6 @@ subroutine amg_z_invk_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: me, np
type(psb_ctxt_type) :: ctxt
character(len=20), parameter :: name='amg_z_invk_solver_descr'
integer(psb_ipk_) :: iout_
amgprec/impl/solver/amg_z_invt_solver_descr.f90
-1
View File
@@ -48,7 +48,6 @@ subroutine amg_z_invt_solver_descr(sv,info,iout,coarse)
! Local variables
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='amg_z_invt_solver_descr'
integer(psb_ipk_) :: iout_