psblas3/base/modules/serial/psb_mat_mod.f90

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