You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
815 B
Fortran
34 lines
815 B
Fortran
module psb_mat_mod
|
|
use psb_s_mat_mod
|
|
use psb_d_mat_mod
|
|
use psb_c_mat_mod
|
|
use psb_z_mat_mod
|
|
|
|
contains
|
|
|
|
subroutine psb_init_mat_defaults()
|
|
implicit none
|
|
!
|
|
! Defaults for matrices
|
|
!
|
|
type(psb_s_csr_sparse_mat) :: smatdef
|
|
type(psb_d_csr_sparse_mat) :: dmatdef
|
|
type(psb_c_csr_sparse_mat) :: cmatdef
|
|
type(psb_z_csr_sparse_mat) :: zmatdef
|
|
|
|
call psb_set_mat_default(smatdef)
|
|
call psb_set_mat_default(dmatdef)
|
|
call psb_set_mat_default(cmatdef)
|
|
call psb_set_mat_default(zmatdef)
|
|
|
|
end subroutine psb_init_mat_defaults
|
|
|
|
subroutine psb_clear_mat_defaults()
|
|
call psb_s_clear_mat_default()
|
|
call psb_d_clear_mat_default()
|
|
call psb_c_clear_mat_default()
|
|
call psb_z_clear_mat_default()
|
|
end subroutine psb_clear_mat_defaults
|
|
|
|
end module psb_mat_mod
|