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.
40 lines
971 B
Fortran
40 lines
971 B
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
|
|
|
|
end module psb_vect_mod
|