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.
52 lines
1.3 KiB
Fortran
52 lines
1.3 KiB
Fortran
module psb_vect_mod
|
|
use psb_i_vect_mod
|
|
use psb_l_vect_mod
|
|
use psb_s_vect_mod
|
|
use psb_d_vect_mod
|
|
use psb_c_vect_mod
|
|
use psb_z_vect_mod
|
|
use psb_i_multivect_mod
|
|
use psb_l_multivect_mod
|
|
use psb_s_multivect_mod
|
|
use psb_d_multivect_mod
|
|
use psb_c_multivect_mod
|
|
use psb_z_multivect_mod
|
|
|
|
contains
|
|
|
|
subroutine psb_init_vect_defaults()
|
|
implicit none
|
|
!
|
|
! Defaults for vectors
|
|
!
|
|
|
|
type(psb_i_base_vect_type) :: ivetdef
|
|
type(psb_l_base_vect_type) :: lvetdef
|
|
type(psb_s_base_vect_type) :: svetdef
|
|
type(psb_d_base_vect_type) :: dvetdef
|
|
type(psb_c_base_vect_type) :: cvetdef
|
|
type(psb_z_base_vect_type) :: zvetdef
|
|
|
|
call psb_set_vect_default(ivetdef)
|
|
call psb_set_vect_default(lvetdef)
|
|
call psb_set_vect_default(svetdef)
|
|
call psb_set_vect_default(dvetdef)
|
|
call psb_set_vect_default(cvetdef)
|
|
call psb_set_vect_default(zvetdef)
|
|
|
|
end subroutine psb_init_vect_defaults
|
|
|
|
subroutine psb_clear_vect_defaults()
|
|
implicit none
|
|
|
|
call psb_i_clear_vect_default()
|
|
call psb_l_clear_vect_default()
|
|
call psb_s_clear_vect_default()
|
|
call psb_d_clear_vect_default()
|
|
call psb_c_clear_vect_default()
|
|
call psb_z_clear_vect_default()
|
|
|
|
end subroutine psb_clear_vect_defaults
|
|
|
|
end module psb_vect_mod
|