class_vector_field_procedures Submodule

Contents

Module Procedures

module procedure assign_vector_field_s module subroutine assign_vector_field_s(f, x)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(inout)			::	f
type(vector),	intent(in)			::	x

module procedure assign_vector_field_v module subroutine assign_vector_field_v(f, x)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(inout)			::	f
type(vector),	intent(in)			::	x(:)

module procedure check_mesh_consistency_vf module subroutine check_mesh_consistency_vf(f1, f2, where)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	f1
type(vector_field),	intent(in)			::	f2
character(len=*),	intent(in)			::	where

module procedure create_vector_field module subroutine create_vector_field(fld, msh, dim, bc, mats, on_faces, x0, name)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(out)			::	fld
type(mesh),	intent(in),		target	::	msh	Optional arguments
type(dimensions),	intent(in),	optional		::	dim
type(bc_poly),	intent(in),	optional	target	::	bc(:)
type(matptr),	intent(in),	optional	target	::	mats(:)
logical,	intent(in),	optional		::	on_faces
type(vector),	intent(in),	optional		::	x0
character(len=*),	intent(in),	optional		::	name

module procedure free_field module subroutine free_field(fld)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(inout)			::	fld

module procedure get_vector_field_base module subroutine get_vector_field_base(fld, base)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld
type(field),	intent(out)			::	base

module procedure get_vector_field_bx_r module subroutine get_vector_field_bx_r(fld, bx)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld
real(kind=psb_dpk_),	intent(out),		allocatable	::	bx(:,:)

module procedure get_vector_field_bx_v module subroutine get_vector_field_bx_v(fld, bx)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld
type(vector),	intent(out),		allocatable	::	bx(:)

module procedure get_vector_field_x_r module subroutine get_vector_field_x_r(fld, x)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld
real(kind=psb_dpk_),	intent(out),		allocatable	::	x(:,:)

module procedure get_vector_field_x_v module subroutine get_vector_field_x_v(fld, x)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld
type(vector),	intent(out),		allocatable	::	x(:)

module procedure get_vector_field_xp_r module subroutine get_vector_field_xp_r(fld, xp)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld
real(kind=psb_dpk_),	intent(out),		allocatable	::	xp(:,:)

module procedure get_vector_field_xp_v module subroutine get_vector_field_xp_v(fld, xp)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld
type(vector),	intent(out),		allocatable	::	xp(:)

module procedure interp_on_faces_v module function interp_on_faces_v(fld) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld

Return Value type(vector_field)

module procedure nemo_sizeof module function nemo_sizeof(fld)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	fld

Return Value integer(kind=nemo_int_long_)

module procedure set_vector_field_bound_element module subroutine set_vector_field_bound_element(f, i, x)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(inout)			::	f
integer,	intent(in)			::	i
type(vector),	intent(in)			::	x

module procedure set_vector_field_element module subroutine set_vector_field_element(f, i, x)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(inout)			::	f
integer,	intent(in)			::	i
type(vector),	intent(in)			::	x

module procedure set_vector_field_group module subroutine set_vector_field_group(f, ig, x)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(inout)			::	f
integer,	intent(in)			::	ig
type(vector),	intent(in)			::	x

module procedure set_vector_field_x module subroutine set_vector_field_x(fld, x)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(inout)			::	fld
real(kind=psb_dpk_),	intent(in),		allocatable	::	x(:,:)

module procedure update_vector_field module subroutine update_vector_field(fld)

$ msh => msh_(fld%field) $ mat => mat_(fld%field)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(inout)			::	fld

module procedure vector_field_ module procedure vector_field_()

Default public constructor, necessary with ifort

Arguments

None

module procedure vector_field_dif module function vector_field_dif(f1, f2) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	f1
type(vector_field),	intent(in)			::	f2

Return Value type(vector_field)

module procedure vector_field_scal module function vector_field_scal(a, f2) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(in)			::	a
class(vector_field),	intent(in)			::	f2

Return Value type(vector_field)

module procedure vector_field_sum module function vector_field_sum(f1, f2) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_field),	intent(in)			::	f1
type(vector_field),	intent(in)			::	f2

Return Value type(vector_field)