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

Redefine interface of prec%descr to get INFO

Browse Source
savebcmatch
Salvatore Filippone 4 years ago
parent 50951ef636
commit 555d7433b7
18 changed files with 32 additions and 24 deletions
Show Stats Download Patch File Download Diff File

3
amgprec/amg_c_prec_type.f90
Unescape Escape View File

@ -155,11 +155,12 @@ module amg_c_prec_type
interface amg_precdescr interface amg_precdescr
subroutine amg_cfile_prec_descr(prec,iout,root,verbosity) subroutine amg_cfile_prec_descr(prec,info,iout,root,verbosity)
import :: amg_cprec_type, psb_ipk_ import :: amg_cprec_type, psb_ipk_
implicit none implicit none
! Arguments ! Arguments
class(amg_cprec_type), intent(in) :: prec class(amg_cprec_type), intent(in) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_), intent(in), optional :: root integer(psb_ipk_), intent(in), optional :: root
integer(psb_ipk_), intent(in), optional :: verbosity integer(psb_ipk_), intent(in), optional :: verbosity

3
amgprec/amg_d_prec_type.f90
Unescape Escape View File

@ -155,11 +155,12 @@ module amg_d_prec_type
interface amg_precdescr interface amg_precdescr
subroutine amg_dfile_prec_descr(prec,iout,root,verbosity) subroutine amg_dfile_prec_descr(prec,info,iout,root,verbosity)
import :: amg_dprec_type, psb_ipk_ import :: amg_dprec_type, psb_ipk_
implicit none implicit none
! Arguments ! Arguments
class(amg_dprec_type), intent(in) :: prec class(amg_dprec_type), intent(in) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_), intent(in), optional :: root integer(psb_ipk_), intent(in), optional :: root
integer(psb_ipk_), intent(in), optional :: verbosity integer(psb_ipk_), intent(in), optional :: verbosity

3
amgprec/amg_s_prec_type.f90
Unescape Escape View File

@ -155,11 +155,12 @@ module amg_s_prec_type
interface amg_precdescr interface amg_precdescr
subroutine amg_sfile_prec_descr(prec,iout,root,verbosity) subroutine amg_sfile_prec_descr(prec,info,iout,root,verbosity)
import :: amg_sprec_type, psb_ipk_ import :: amg_sprec_type, psb_ipk_
implicit none implicit none
! Arguments ! Arguments
class(amg_sprec_type), intent(in) :: prec class(amg_sprec_type), intent(in) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_), intent(in), optional :: root integer(psb_ipk_), intent(in), optional :: root
integer(psb_ipk_), intent(in), optional :: verbosity integer(psb_ipk_), intent(in), optional :: verbosity

3
amgprec/amg_z_prec_type.f90
Unescape Escape View File

@ -155,11 +155,12 @@ module amg_z_prec_type
interface amg_precdescr interface amg_precdescr
subroutine amg_zfile_prec_descr(prec,iout,root,verbosity) subroutine amg_zfile_prec_descr(prec,info,iout,root,verbosity)
import :: amg_zprec_type, psb_ipk_ import :: amg_zprec_type, psb_ipk_
implicit none implicit none
! Arguments ! Arguments
class(amg_zprec_type), intent(in) :: prec class(amg_zprec_type), intent(in) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_), intent(in), optional :: root integer(psb_ipk_), intent(in), optional :: root
integer(psb_ipk_), intent(in), optional :: verbosity integer(psb_ipk_), intent(in), optional :: verbosity

5
amgprec/impl/amg_cfile_prec_descr.f90
Unescape Escape View File

@ -65,7 +65,7 @@
! 0: normal ! 0: normal
! >1: increased details ! >1: increased details
! !
subroutine amg_cfile_prec_descr(prec,iout,root, verbosity) subroutine amg_cfile_prec_descr(prec,info,iout,root, verbosity)
use psb_base_mod use psb_base_mod
use amg_c_prec_mod, amg_protect_name => amg_cfile_prec_descr use amg_c_prec_mod, amg_protect_name => amg_cfile_prec_descr
use amg_c_inner_mod use amg_c_inner_mod
@ -74,13 +74,14 @@ subroutine amg_cfile_prec_descr(prec,iout,root, verbosity)
implicit none implicit none
! Arguments ! Arguments
class(amg_cprec_type), intent(in) :: prec class(amg_cprec_type), intent(in) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_), intent(in), optional :: root integer(psb_ipk_), intent(in), optional :: root
integer(psb_ipk_), intent(in), optional :: verbosity integer(psb_ipk_), intent(in), optional :: verbosity
! Local variables ! Local variables
integer(psb_ipk_) :: ilev, nlev, ilmin, info, nswps integer(psb_ipk_) :: ilev, nlev, ilmin, nswps
type(psb_ctxt_type) :: ctxt type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: me, np integer(psb_ipk_) :: me, np
logical :: is_symgs logical :: is_symgs

5
amgprec/impl/amg_dfile_prec_descr.f90
Unescape Escape View File

@ -65,7 +65,7 @@
! 0: normal ! 0: normal
! >1: increased details ! >1: increased details
! !
subroutine amg_dfile_prec_descr(prec,iout,root, verbosity) subroutine amg_dfile_prec_descr(prec,info,iout,root, verbosity)
use psb_base_mod use psb_base_mod
use amg_d_prec_mod, amg_protect_name => amg_dfile_prec_descr use amg_d_prec_mod, amg_protect_name => amg_dfile_prec_descr
use amg_d_inner_mod use amg_d_inner_mod
@ -74,13 +74,14 @@ subroutine amg_dfile_prec_descr(prec,iout,root, verbosity)
implicit none implicit none
! Arguments ! Arguments
class(amg_dprec_type), intent(in) :: prec class(amg_dprec_type), intent(in) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_), intent(in), optional :: root integer(psb_ipk_), intent(in), optional :: root
integer(psb_ipk_), intent(in), optional :: verbosity integer(psb_ipk_), intent(in), optional :: verbosity
! Local variables ! Local variables
integer(psb_ipk_) :: ilev, nlev, ilmin, info, nswps integer(psb_ipk_) :: ilev, nlev, ilmin, nswps
type(psb_ctxt_type) :: ctxt type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: me, np integer(psb_ipk_) :: me, np
logical :: is_symgs logical :: is_symgs

5
amgprec/impl/amg_sfile_prec_descr.f90
Unescape Escape View File

@ -65,7 +65,7 @@
! 0: normal ! 0: normal
! >1: increased details ! >1: increased details
! !
subroutine amg_sfile_prec_descr(prec,iout,root, verbosity) subroutine amg_sfile_prec_descr(prec,info,iout,root, verbosity)
use psb_base_mod use psb_base_mod
use amg_s_prec_mod, amg_protect_name => amg_sfile_prec_descr use amg_s_prec_mod, amg_protect_name => amg_sfile_prec_descr
use amg_s_inner_mod use amg_s_inner_mod
@ -74,13 +74,14 @@ subroutine amg_sfile_prec_descr(prec,iout,root, verbosity)
implicit none implicit none
! Arguments ! Arguments
class(amg_sprec_type), intent(in) :: prec class(amg_sprec_type), intent(in) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_), intent(in), optional :: root integer(psb_ipk_), intent(in), optional :: root
integer(psb_ipk_), intent(in), optional :: verbosity integer(psb_ipk_), intent(in), optional :: verbosity
! Local variables ! Local variables
integer(psb_ipk_) :: ilev, nlev, ilmin, info, nswps integer(psb_ipk_) :: ilev, nlev, ilmin, nswps
type(psb_ctxt_type) :: ctxt type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: me, np integer(psb_ipk_) :: me, np
logical :: is_symgs logical :: is_symgs

5
amgprec/impl/amg_zfile_prec_descr.f90
Unescape Escape View File

@ -65,7 +65,7 @@
! 0: normal ! 0: normal
! >1: increased details ! >1: increased details
! !
subroutine amg_zfile_prec_descr(prec,iout,root, verbosity) subroutine amg_zfile_prec_descr(prec,info,iout,root, verbosity)
use psb_base_mod use psb_base_mod
use amg_z_prec_mod, amg_protect_name => amg_zfile_prec_descr use amg_z_prec_mod, amg_protect_name => amg_zfile_prec_descr
use amg_z_inner_mod use amg_z_inner_mod
@ -74,13 +74,14 @@ subroutine amg_zfile_prec_descr(prec,iout,root, verbosity)
implicit none implicit none
! Arguments ! Arguments
class(amg_zprec_type), intent(in) :: prec class(amg_zprec_type), intent(in) :: prec
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
integer(psb_ipk_), intent(in), optional :: root integer(psb_ipk_), intent(in), optional :: root
integer(psb_ipk_), intent(in), optional :: verbosity integer(psb_ipk_), intent(in), optional :: verbosity
! Local variables ! Local variables
integer(psb_ipk_) :: ilev, nlev, ilmin, info, nswps integer(psb_ipk_) :: ilev, nlev, ilmin, nswps
type(psb_ctxt_type) :: ctxt type(psb_ctxt_type) :: ctxt
integer(psb_ipk_) :: me, np integer(psb_ipk_) :: me, np
logical :: is_symgs logical :: is_symgs

4
cbind/amgprec/amg_dprec_cbind_mod.F90
Unescape Escape View File

@ -384,7 +384,7 @@ contains
integer(psb_c_ipk_) :: res integer(psb_c_ipk_) :: res
type(psb_c_object_type) :: ph type(psb_c_object_type) :: ph
integer :: info integer(psb_c_ipk_) :: info
type(amg_dprec_type), pointer :: precp type(amg_dprec_type), pointer :: precp
res = -1 res = -1
@ -396,7 +396,7 @@ contains
end if end if
call precp%descr() call precp%descr(info)
call flush(psb_out_unit) call flush(psb_out_unit)
info = 0 info = 0

4
cbind/amgprec/amg_zprec_cbind_mod.F90
Unescape Escape View File

@ -384,7 +384,7 @@ contains
integer(psb_c_ipk_) :: res integer(psb_c_ipk_) :: res
type(psb_c_object_type) :: ph type(psb_c_object_type) :: ph
integer :: info integer(psb_c_ipk_) :: info
type(amg_zprec_type), pointer :: precp type(amg_zprec_type), pointer :: precp
res = -1 res = -1
@ -396,7 +396,7 @@ contains
end if end if
call precp%descr() call precp%descr(info)
call flush(psb_out_unit) call flush(psb_out_unit)
info = 0 info = 0

2
tests/fileread/amg_cf_sample.f90
Unescape Escape View File

@ -523,7 +523,7 @@ program amg_cf_sample
call psb_sum(ctxt,amatsize) call psb_sum(ctxt,amatsize)
call psb_sum(ctxt,descsize) call psb_sum(ctxt,descsize)
call psb_sum(ctxt,precsize) call psb_sum(ctxt,precsize)
call prec%descr(iout=psb_out_unit) call prec%descr(info,iout=psb_out_unit)
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Matrix: ",a)')mtrx_file write(psb_out_unit,'("Matrix: ",a)')mtrx_file
write(psb_out_unit,'("Computed solution on ",i8," processors")')np write(psb_out_unit,'("Computed solution on ",i8," processors")')np

2
tests/fileread/amg_df_sample.f90
Unescape Escape View File

@ -523,7 +523,7 @@ program amg_df_sample
call psb_sum(ctxt,amatsize) call psb_sum(ctxt,amatsize)
call psb_sum(ctxt,descsize) call psb_sum(ctxt,descsize)
call psb_sum(ctxt,precsize) call psb_sum(ctxt,precsize)
call prec%descr(iout=psb_out_unit) call prec%descr(info,iout=psb_out_unit)
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Matrix: ",a)')mtrx_file write(psb_out_unit,'("Matrix: ",a)')mtrx_file
write(psb_out_unit,'("Computed solution on ",i8," processors")')np write(psb_out_unit,'("Computed solution on ",i8," processors")')np

2
tests/fileread/amg_sf_sample.f90
Unescape Escape View File

@ -523,7 +523,7 @@ program amg_sf_sample
call psb_sum(ctxt,amatsize) call psb_sum(ctxt,amatsize)
call psb_sum(ctxt,descsize) call psb_sum(ctxt,descsize)
call psb_sum(ctxt,precsize) call psb_sum(ctxt,precsize)
call prec%descr(iout=psb_out_unit) call prec%descr(info,iout=psb_out_unit)
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Matrix: ",a)')mtrx_file write(psb_out_unit,'("Matrix: ",a)')mtrx_file
write(psb_out_unit,'("Computed solution on ",i8," processors")')np write(psb_out_unit,'("Computed solution on ",i8," processors")')np

2
tests/fileread/amg_zf_sample.f90
Unescape Escape View File

@ -523,7 +523,7 @@ program amg_zf_sample
call psb_sum(ctxt,amatsize) call psb_sum(ctxt,amatsize)
call psb_sum(ctxt,descsize) call psb_sum(ctxt,descsize)
call psb_sum(ctxt,precsize) call psb_sum(ctxt,precsize)
call prec%descr(iout=psb_out_unit) call prec%descr(info,iout=psb_out_unit)
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Matrix: ",a)')mtrx_file write(psb_out_unit,'("Matrix: ",a)')mtrx_file
write(psb_out_unit,'("Computed solution on ",i8," processors")')np write(psb_out_unit,'("Computed solution on ",i8," processors")')np

2
tests/pdegen/amg_d_pde2d.f90
Unescape Escape View File

@ -432,7 +432,7 @@ program amg_d_pde2d
call psb_sum(ctxt,amatsize) call psb_sum(ctxt,amatsize)
call psb_sum(ctxt,descsize) call psb_sum(ctxt,descsize)
call psb_sum(ctxt,precsize) call psb_sum(ctxt,precsize)
call prec%descr(iout=psb_out_unit) call prec%descr(info,iout=psb_out_unit)
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Computed solution on ",i8," processors")') np write(psb_out_unit,'("Computed solution on ",i8," processors")') np
write(psb_out_unit,'("Linear system size : ",i12)') system_size write(psb_out_unit,'("Linear system size : ",i12)') system_size

2
tests/pdegen/amg_d_pde3d.f90
Unescape Escape View File

@ -436,7 +436,7 @@ program amg_d_pde3d
call psb_sum(ctxt,amatsize) call psb_sum(ctxt,amatsize)
call psb_sum(ctxt,descsize) call psb_sum(ctxt,descsize)
call psb_sum(ctxt,precsize) call psb_sum(ctxt,precsize)
call prec%descr(iout=psb_out_unit) call prec%descr(info,iout=psb_out_unit)
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Computed solution on ",i8," processors")') np write(psb_out_unit,'("Computed solution on ",i8," processors")') np
write(psb_out_unit,'("Linear system size : ",i12)') system_size write(psb_out_unit,'("Linear system size : ",i12)') system_size

2
tests/pdegen/amg_s_pde2d.f90
Unescape Escape View File

@ -432,7 +432,7 @@ program amg_s_pde2d
call psb_sum(ctxt,amatsize) call psb_sum(ctxt,amatsize)
call psb_sum(ctxt,descsize) call psb_sum(ctxt,descsize)
call psb_sum(ctxt,precsize) call psb_sum(ctxt,precsize)
call prec%descr(iout=psb_out_unit) call prec%descr(info,iout=psb_out_unit)
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Computed solution on ",i8," processors")') np write(psb_out_unit,'("Computed solution on ",i8," processors")') np
write(psb_out_unit,'("Linear system size : ",i12)') system_size write(psb_out_unit,'("Linear system size : ",i12)') system_size

2
tests/pdegen/amg_s_pde3d.f90
Unescape Escape View File

@ -436,7 +436,7 @@ program amg_s_pde3d
call psb_sum(ctxt,amatsize) call psb_sum(ctxt,amatsize)
call psb_sum(ctxt,descsize) call psb_sum(ctxt,descsize)
call psb_sum(ctxt,precsize) call psb_sum(ctxt,precsize)
call prec%descr(iout=psb_out_unit) call prec%descr(info,iout=psb_out_unit)
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Computed solution on ",i8," processors")') np write(psb_out_unit,'("Computed solution on ",i8," processors")') np
write(psb_out_unit,'("Linear system size : ",i12)') system_size write(psb_out_unit,'("Linear system size : ",i12)') system_size

Write Preview
Loading…
Cancel
Save