shiftedtest Program

  1. shiftedtest.f90
  2. shiftedtest

Uses

  • program~~shiftedtest~~UsesGraph program~shiftedtest shiftedtest psb_krylov_mod psb_krylov_mod program~shiftedtest->psb_krylov_mod psb_base_mod psb_base_mod program~shiftedtest->psb_base_mod psb_prec_mod psb_prec_mod program~shiftedtest->psb_prec_mod module~psfun_krylov_mod psfun_krylov_mod program~shiftedtest->module~psfun_krylov_mod psb_util_mod psb_util_mod program~shiftedtest->psb_util_mod module~getp getp program~shiftedtest->module~getp module~psfun_krylov_mod->psb_base_mod module~psfun_krylov_mod->psb_prec_mod amg_prec_mod amg_prec_mod module~psfun_krylov_mod->amg_prec_mod

Test program for the shifted Krylov methods from psfun_krylov_mod


Calls

program~~shiftedtest~~CallsGraph program~shiftedtest shiftedtest psb_cdfree psb_cdfree program~shiftedtest->psb_cdfree psb_geasb psb_geasb program~shiftedtest->psb_geasb interface~get_parms get_parms program~shiftedtest->interface~get_parms psb_bcast psb_bcast program~shiftedtest->psb_bcast 4 4 program~shiftedtest->4 psb_geaxpby psb_geaxpby program~shiftedtest->psb_geaxpby psb_amx psb_amx program~shiftedtest->psb_amx psb_geall psb_geall program~shiftedtest->psb_geall psb_exit psb_exit program~shiftedtest->psb_exit psb_spfree psb_spfree program~shiftedtest->psb_spfree psb_genrm2 psb_genrm2 program~shiftedtest->psb_genrm2 psb_gefree psb_gefree program~shiftedtest->psb_gefree psb_wtime psb_wtime program~shiftedtest->psb_wtime psb_spmm psb_spmm program~shiftedtest->psb_spmm psb_sum psb_sum program~shiftedtest->psb_sum psb_abort psb_abort program~shiftedtest->psb_abort hb_read hb_read program~shiftedtest->hb_read psb_info psb_info program~shiftedtest->psb_info psb_barrier psb_barrier program~shiftedtest->psb_barrier distr_mtpart distr_mtpart program~shiftedtest->distr_mtpart getv_mtpart getv_mtpart program~shiftedtest->getv_mtpart mm_mat_read mm_mat_read program~shiftedtest->mm_mat_read psb_gather psb_gather program~shiftedtest->psb_gather psb_init psb_init program~shiftedtest->psb_init psb_matdist psb_matdist program~shiftedtest->psb_matdist build_mtpart build_mtpart program~shiftedtest->build_mtpart interface~psb_krylov psb_krylov program~shiftedtest->interface~psb_krylov psb_errstatus_fatal psb_errstatus_fatal program~shiftedtest->psb_errstatus_fatal psb_errpush psb_errpush program~shiftedtest->psb_errpush mm_array_read mm_array_read program~shiftedtest->mm_array_read psb_set_errverbosity psb_set_errverbosity program~shiftedtest->psb_set_errverbosity psb_scatter psb_scatter program~shiftedtest->psb_scatter psb_toupper psb_toupper program~shiftedtest->psb_toupper psb_realloc psb_realloc program~shiftedtest->psb_realloc psb_geamax psb_geamax program~shiftedtest->psb_geamax proc~get_dparms get_dparms interface~get_parms->proc~get_dparms proc~psfun_dkrylov_vect psfun_dkrylov_vect interface~psb_krylov->proc~psfun_dkrylov_vect proc~get_dparms->psb_bcast proc~get_dparms->psb_abort proc~get_dparms->psb_info proc~psfun_dkrylov_vect->psb_info proc~psfun_dkrylov_vect->psb_toupper psb_erractionsave psb_erractionsave proc~psfun_dkrylov_vect->psb_erractionsave psb_erractionrestore psb_erractionrestore proc~psfun_dkrylov_vect->psb_erractionrestore

Contents

Variables


Variables

Type AttributesNameInitial
type(psb_dspmat_type) :: a
character(len=5) :: afmt
integer(kind=psb_epk_) :: amatsize
type(psb_ldspmat_type) :: aux_a
real(kind=psb_dpk_), allocatable, target:: aux_b(:,:)
real(kind=psb_dpk_) :: b_amax
type(psb_d_vect_type) :: b_col
real(kind=psb_dpk_), pointer:: b_col_glob(:)
real(kind=psb_dpk_) :: cond
type(psb_ctxt_type) :: ctxt
real(kind=psb_dpk_), allocatable, target:: d(:)
type(psb_desc_type) :: desc_a
integer(kind=psb_epk_) :: descsize
integer(kind=psb_ipk_) :: dim
real(kind=psb_dpk_) :: eps
real(kind=psb_dpk_) :: err
integer(kind=psb_ipk_) :: err_act
real(kind=psb_dpk_) :: eta
character(len=2) :: filefmt
character(len=40) :: fname
character(len=40) :: fnout
integer(kind=psb_ipk_) :: i
integer(kind=psb_ipk_) :: iam
integer(kind=psb_ipk_) :: ierr
integer(kind=psb_ipk_) :: ii
integer(kind=psb_ipk_) :: info
integer(kind=psb_ipk_) :: internal
integer(kind=psb_ipk_) :: iparm(20)
integer(kind=psb_ipk_), allocatable:: ipv(:)
integer(kind=psb_ipk_) :: ircode
integer(kind=psb_ipk_) :: irst
integer(kind=psb_ipk_) :: istopc
integer(kind=psb_ipk_) :: iter
integer(kind=psb_ipk_) :: itmax
integer(kind=psb_ipk_) :: itrace
integer(kind=psb_ipk_), parameter:: iunit =12
integer(kind=psb_ipk_), allocatable:: ivg(:)
integer(kind=psb_ipk_) :: j
character(len=40) :: kmethd
integer(kind=psb_lpk_) :: lnp
integer(kind=psb_ipk_) :: m
integer(kind=psb_ipk_) :: m_problem
integer(kind=psb_ipk_) :: methd
character(len=40) :: mtrx_file
integer(kind=psb_ipk_) :: n_row
character(len=20) :: name
integer(kind=psb_ipk_) :: ne
integer(kind=psb_ipk_) :: nnzero
integer(kind=psb_ipk_) :: np
integer(kind=psb_ipk_) :: nrhs
integer(kind=psb_ipk_) :: nrow
integer(kind=psb_ipk_) :: nv
character(len=20) :: part
type(psb_dprec_type) :: prec
integer(kind=psb_epk_) :: precsize
character(len=40) :: ptype
real(kind=psb_dpk_) :: r_amax
type(psb_d_vect_type) :: r_col
real(kind=psb_dpk_), allocatable, save:: r_col_glob(:)
real(kind=psb_dpk_) :: resmx
real(kind=psb_dpk_) :: resmxp
character(len=40) :: rhs_file
real(kind=psb_dpk_) :: scale
real(kind=psb_dpk_) :: t1
real(kind=psb_dpk_) :: t2
real(kind=psb_dpk_) :: tprec
type(psb_d_vect_type) :: x_col
real(kind=psb_dpk_), allocatable, save:: x_col_glob(:)
real(kind=psb_dpk_) :: zeta