oft_native_cvector Type Reference

Detailed Description

Native vector class.

Used for implementing global vector operations in OFT

Inheritance diagram for oft_native_cvector:

Public Member Functions
generic	add (self, gamma, alpha, a, beta, b)
	Add fields.
generic	add (self, gamma, alpha, a, beta, b)
	Add fields.
procedure(cvec_add_cvec), deferred	add_complex (self, gamma, alpha, a, beta, b)
procedure	add_complex (self, gamma, alpha, a, beta, b)
	Add vectors.
procedure(cvec_add_vec), deferred	add_real (self, gamma, alpha, a, beta, b)
procedure	add_real (self, gamma, alpha, a, beta, b)
	Add vectors.
procedure	delete (self)
	Delete field.
procedure	delete (self)
	Delete vector.
generic	dot (self, a)
	Dot product with a second field.
generic	dot (self, a)
	Dot product with a second field.
procedure(cvec_dot_cvec), deferred	dot_complex (self, a)
procedure	dot_complex (self, a)
	Dot product with a second vector.
procedure(cvec_dot_vec), deferred	dot_real (self, a)
procedure	dot_real (self, a)
	Dot product with a second vector.
procedure(cvec_get_local), deferred	get_local (self, array, iblock)
	Get local portion of field.
procedure	get_local (self, array, iblock)
	Get local portion of field.
procedure(cvec_get_slice), deferred	get_slice (self, array, iblock)
	Get owned portion of field.
procedure	get_slice (self, array, iblock)
	Get owned portion of field.
generic	mdot (self, a, n)
	Dot product with a set of fields.
generic	mdot (self, a, n)
	Dot product with a set of fields.
procedure(cvec_mdot_cvec), deferred	mdot_complex (self, a, n)
procedure	mdot_complex (self, a, n)
	Dot product with an arrays of vectors.
procedure(cvec_mdot_vec), deferred	mdot_real (self, a, n)
procedure	mdot_real (self, a, n)
	Dot product with an arrays of vectors.
generic	mult (self, a, div_flag)
	Multiply fields element by element.
generic	mult (self, a, div_flag)
	Multiply fields element by element.
procedure(cvec_mult_cvec), deferred	mult_complex (self, a, div_flag)
procedure	mult_complex (self, a, div_flag)
	Multiply fields element by element.
procedure(cvec_mult_vec), deferred	mult_real (self, a, div_flag)
procedure	mult_real (self, a, div_flag)
	Multiply fields element by element.
generic	new (self, new)
	Create a new field as a bare copy.
generic	new (self, new)
	Create a new field as a bare copy.
procedure(cvec_new_cvec), deferred	new_complex (self, new)
procedure	new_complex (self, new)
	Create a new vector as a bare copy.
procedure(cvec_new_vec), deferred	new_real (self, new)
procedure	new_real (self, new)
	Create a new vector as a bare copy.
procedure(cvec_norm), deferred	norm (self, itype)
	Norm of field.
procedure	norm (self, itype)
	Norm of field.
procedure(cvec_restore_local), deferred	restore_local (self, array, iblock, add, wait)
	Restore local portion of field.
procedure	restore_local (self, array, iblock, add, wait)
	Restore local portion of field.
procedure(cvec_restore_slice), deferred	restore_slice (self, array, iblock, wait)
	Restore owned portion of field.
procedure	restore_slice (self, array, iblock, wait)
	Restore owned portion of field.
procedure(cvec_scale), deferred	scale (self, alpha)
	Scale field by a scalar.
procedure	scale (self, alpha)
	Scale vector by a scalar.
procedure(cvec_set), deferred	set (self, alpha, iblock, random)
	Set all elements to a scalar.
procedure	set (self, alpha, iblock, random)
	Set all elements to a scalar.
procedure(cvec_stitch), deferred	stitch (self, up_method)
	Perform global sitching.
procedure	stitch (self, up_method)
	Perform global stitching.
procedure(cvec_sum), deferred	sum (self)
	Sum reduction over field.
procedure	sum (self)
	Sum reduction over vector.

Public Attributes
complex(c8), dimension(:), pointer, contiguous	local_tmp => NULL()
type(oft_map), dimension(:), pointer	map => NULL()
	Block mapping.
integer(i4)	n = -1
	Local size of field.
integer(i4)	nblocks = 1
	Number of blocks.
integer(i8)	ng = -1
	Gobal size of field.
integer(i4)	nslice = -1
	Local size of field.
type(oft_seam), pointer	stitch_info => NULL()
	Seam information.
complex(c8), dimension(:), pointer, contiguous	v => NULL()
	Vector values.

Member Function/Subroutine Documentation

add() [1/2]

generic add ( class(oft_cvector), intent(inout)  self, complex(c8), intent(in)  gamma, complex(c8), intent(in)  alpha, class(oft_cvector), intent(inout), target  a, complex(c8), intent(in), optional  beta, class(oft_cvector), intent(inout), optional, target  b  )

inherited

Add fields.

add() [2/2]

generic add ( class(oft_cvector), intent(inout)  self, complex(c8), intent(in)  gamma, complex(c8), intent(in)  alpha, class(oft_vector), intent(inout), target  a, complex(c8), intent(in), optional  beta, class(oft_vector), intent(inout), optional, target  b  )

inherited

Add fields.

add_complex() [1/2]

procedure(cvec_add_cvec), deferred add_complex ( class(oft_cvector), intent(inout)  self, complex(c8), intent(in)  gamma, complex(c8), intent(in)  alpha, class(oft_cvector), intent(inout), target  a, complex(c8), intent(in), optional  beta, class(oft_cvector), intent(inout), optional, target  b  )

pure virtualinherited

add_complex() [2/2]

procedure add_complex	(	class(oft_native_cvector), intent(inout)	self,
		complex(c8), intent(in)	gamma,
		complex(c8), intent(in)	alpha,
		class(oft_cvector), intent(inout), target	a,
		complex(c8), intent(in), optional	beta,
		class(oft_cvector), intent(inout), optional, target	b
	)

Add vectors.

self = \( \gamma \) self + \( \alpha \) a + \( \beta \) b

Parameters

[in]	gamma	Scale of source vector
[in]	alpha	Scale of first vector
[in]	a	First vector to add
[in]	beta	Scale of second vector (optional)
[in]	b	Second vector to add (optional)

add_real() [1/2]

procedure(cvec_add_vec), deferred add_real ( class(oft_cvector), intent(inout)  self, complex(c8), intent(in)  gamma, complex(c8), intent(in)  alpha, class(oft_vector), intent(inout), target  a, complex(c8), intent(in), optional  beta, class(oft_vector), intent(inout), optional, target  b  )

pure virtualinherited

add_real() [2/2]

procedure add_real	(	class(oft_native_cvector), intent(inout)	self,
		complex(c8), intent(in)	gamma,
		complex(c8), intent(in)	alpha,
		class(oft_vector), intent(inout), target	a,
		complex(c8), intent(in), optional	beta,
		class(oft_vector), intent(inout), optional, target	b
	)

Add vectors.

self = \( \gamma \) self + \( \alpha \) a + \( \beta \) b

Parameters

[in]	gamma	Scale of source vector
[in]	alpha	Scale of first vector
[in]	a	First vector to add
[in]	beta	Scale of second vector (optional)
[in]	b	Second vector to add (optional)

delete() [1/2]

procedure delete ( class(oft_cvector), intent(inout)  self )

inherited

Delete field.

Note

This subroutine is a dummy routine used to specify the interface of the member function and catch errors in uninitialized fields.

delete() [2/2]

procedure delete

(

class(oft_native_cvector), intent(inout)

self

)

Delete vector.

dot() [1/2]

generic dot ( class(oft_cvector), intent(inout)  self, class(oft_cvector), intent(inout), target  a  )

inherited

Dot product with a second field.

dot() [2/2]

generic dot ( class(oft_cvector), intent(inout)  self, class(oft_vector), intent(inout), target  a  )

inherited

Dot product with a second field.

dot_complex() [1/2]

procedure(cvec_dot_cvec), deferred dot_complex ( class(oft_cvector), intent(inout)  self, class(oft_cvector), intent(inout), target  a  )

pure virtualinherited

dot_complex() [2/2]

procedure dot_complex	(	class(oft_native_cvector), intent(inout)	self,
		class(oft_cvector), intent(inout), target	a
	)

Dot product with a second vector.

Parameters

[in]

a

Second vector for dot product

Returns

\( \sum_i self_i a_i \)

dot_real() [1/2]

procedure(cvec_dot_vec), deferred dot_real ( class(oft_cvector), intent(inout)  self, class(oft_vector), intent(inout), target  a  )

pure virtualinherited

dot_real() [2/2]

procedure dot_real	(	class(oft_native_cvector), intent(inout)	self,
		class(oft_vector), intent(inout), target	a
	)

Dot product with a second vector.

Parameters

[in]

a

Second vector for dot product

Returns

\( \sum_i self_i a_i \)

get_local() [1/2]

procedure(cvec_get_local), deferred get_local ( class(oft_cvector), intent(inout)  self, complex(c8), dimension(:), intent(inout), pointer  array, integer(i4), intent(in), optional  iblock  )

pure virtualinherited

Get local portion of field.

get_local() [2/2]

procedure get_local	(	class(oft_native_cvector), intent(inout)	self,
		complex(c8), dimension(:), intent(inout), pointer	array,
		integer(i4), intent(in), optional	iblock
	)

Get local portion of field.

Parameters

[in]

alpha

Updated field value

Note

This subroutine is a dummy routine used to specify the interface of the member function and catch errors in uninitialized fields.

get_slice() [1/2]

procedure(cvec_get_slice), deferred get_slice ( class(oft_cvector), intent(inout)  self, complex(c8), dimension(:), intent(inout), pointer  array, integer(i4), intent(in), optional  iblock  )

pure virtualinherited

Get owned portion of field.

get_slice() [2/2]

procedure get_slice	(	class(oft_native_cvector), intent(inout)	self,
		complex(c8), dimension(:), intent(inout), pointer	array,
		integer(i4), intent(in), optional	iblock
	)

Get owned portion of field.

Parameters

[in]

alpha

Updated field value

Note

This subroutine is a dummy routine used to specify the interface of the member function and catch errors in uninitialized fields.

mdot() [1/2]

generic mdot ( class(oft_cvector), intent(inout)  self, type(oft_vector_ptr), dimension(n), intent(inout)  a, integer(i4), intent(in)  n  )

inherited

Dot product with a set of fields.

mdot() [2/2]

generic mdot ( class(oft_cvector), intent(inout)  self, type(oft_cvector_ptr), dimension(n), intent(inout)  a, integer(i4), intent(in)  n  )

inherited

Dot product with a set of fields.

mdot_complex() [1/2]

procedure(cvec_mdot_cvec), deferred mdot_complex ( class(oft_cvector), intent(inout)  self, type(oft_cvector_ptr), dimension(n), intent(inout)  a, integer(i4), intent(in)  n  )

pure virtualinherited

mdot_complex() [2/2]

procedure mdot_complex	(	class(oft_native_cvector), intent(inout)	self,
		type(oft_cvector_ptr), dimension(n), intent(inout)	a,
		integer(i4), intent(in)	n
	)

Dot product with an arrays of vectors.

Parameters

[in]	a	Array of vectors for dot product [n]
[in]	n	Length of vector array

Returns

\( \sum_i self_i a(j)_i \)

mdot_real() [1/2]

procedure(cvec_mdot_vec), deferred mdot_real ( class(oft_cvector), intent(inout)  self, type(oft_vector_ptr), dimension(n), intent(inout)  a, integer(i4), intent(in)  n  )

pure virtualinherited

mdot_real() [2/2]

procedure mdot_real	(	class(oft_native_cvector), intent(inout)	self,
		type(oft_vector_ptr), dimension(n), intent(inout)	a,
		integer(i4), intent(in)	n
	)

Dot product with an arrays of vectors.

Parameters

[in]	a	Array of vectors for dot product [n]
[in]	n	Length of vector array

Returns

\( \sum_i self_i a(j)_i \)

mult() [1/2]

generic mult ( class(oft_cvector), intent(inout)  self, class(oft_cvector), intent(inout), target  a, logical, intent(in), optional  div_flag  )

inherited

Multiply fields element by element.

mult() [2/2]

generic mult ( class(oft_cvector), intent(inout)  self, class(oft_vector), intent(inout), target  a, logical, intent(in), optional  div_flag  )

inherited

Multiply fields element by element.

mult_complex() [1/2]

procedure(cvec_mult_cvec), deferred mult_complex ( class(oft_cvector), intent(inout)  self, class(oft_cvector), intent(inout), target  a, logical, intent(in), optional  div_flag  )

pure virtualinherited

mult_complex() [2/2]

procedure mult_complex	(	class(oft_native_cvector), intent(inout)	self,
		class(oft_cvector), intent(inout), target	a,
		logical, intent(in), optional	div_flag
	)

Multiply fields element by element.

\( self_i = self_i * a_i \)

Parameters

[in]

a

First field to add

mult_real() [1/2]

procedure(cvec_mult_vec), deferred mult_real ( class(oft_cvector), intent(inout)  self, class(oft_vector), intent(inout), target  a, logical, intent(in), optional  div_flag  )

pure virtualinherited

mult_real() [2/2]

procedure mult_real	(	class(oft_native_cvector), intent(inout)	self,
		class(oft_vector), intent(inout), target	a,
		logical, intent(in), optional	div_flag
	)

Multiply fields element by element.

\( self_i = self_i * a_i \)

Parameters

[in]

a

First field to add

new() [1/2]

generic new ( class(oft_cvector), intent(in)  self, class(oft_cvector), intent(out), pointer  new  )

inherited

Create a new field as a bare copy.

new() [2/2]

generic new ( class(oft_cvector), intent(in)  self, class(oft_vector), intent(out), pointer  new  )

inherited

Create a new field as a bare copy.

new_complex() [1/2]

procedure(cvec_new_cvec), deferred new_complex ( class(oft_cvector), intent(in)  self, class(oft_cvector), intent(out), pointer  new  )

pure virtualinherited

new_complex() [2/2]

procedure new_complex	(	class(oft_native_cvector), intent(in)	self,
		class(oft_cvector), intent(out), pointer	new
	)

Create a new vector as a bare copy.

Creates a new vector of the same size and with the same gobal mapping. The new vector is also initialized to 0.

Parameters

[out]

new

New vector

new_real() [1/2]

procedure(cvec_new_vec), deferred new_real ( class(oft_cvector), intent(in)  self, class(oft_vector), intent(out), pointer  new  )

pure virtualinherited

new_real() [2/2]

procedure new_real	(	class(oft_native_cvector), intent(in)	self,
		class(oft_vector), intent(out), pointer	new
	)

Create a new vector as a bare copy.

Creates a new vector of the same size and with the same gobal mapping. The new vector is also initialized to 0.

Parameters

[out]

new

New vector

norm() [1/2]

procedure(cvec_norm), deferred norm ( class(oft_cvector), intent(inout)  self, integer(i4), intent(in)  itype  )

pure virtualinherited

Norm of field.

norm() [2/2]

procedure norm	(	class(oft_native_cvector), intent(inout)	self,
		integer(i4), intent(in)	itype
	)

Norm of field.

Parameters

[in]

itype

Type of norm (1-> 1-norm, 2-> 2-norm, 3-> Inf-norm)

Returns

norm(self)

restore_local() [1/2]

procedure(cvec_restore_local), deferred restore_local ( class(oft_cvector), intent(inout)  self, complex(c8), dimension(:), intent(in)  array, integer(i4), intent(in), optional  iblock, logical, intent(in), optional  add, logical, intent(in), optional  wait  )

pure virtualinherited

Restore local portion of field.

restore_local() [2/2]

procedure restore_local	(	class(oft_native_cvector), intent(inout)	self,
		complex(c8), dimension(:), intent(in)	array,
		integer(i4), intent(in), optional	iblock,
		logical, intent(in), optional	add,
		logical, intent(in), optional	wait
	)

Restore local portion of field.

Parameters

[in]

alpha

Updated field value

Note

This subroutine is a dummy routine used to specify the interface of the member function and catch errors in uninitialized fields.

restore_slice() [1/2]

procedure(cvec_restore_slice), deferred restore_slice ( class(oft_cvector), intent(inout)  self, complex(c8), dimension(:), intent(in)  array, integer(i4), intent(in), optional  iblock, logical, intent(in), optional  wait  )

pure virtualinherited

Restore owned portion of field.

restore_slice() [2/2]

procedure restore_slice	(	class(oft_native_cvector), intent(inout)	self,
		complex(c8), dimension(:), intent(in)	array,
		integer(i4), intent(in), optional	iblock,
		logical, intent(in), optional	wait
	)

Restore owned portion of field.

Parameters

[in]

alpha

Updated field value

Note

This subroutine is a dummy routine used to specify the interface of the member function and catch errors in uninitialized fields.

scale() [1/2]

procedure(cvec_scale), deferred scale ( class(oft_cvector), intent(inout)  self, complex(c8), intent(in)  alpha  )

pure virtualinherited

Scale field by a scalar.

scale() [2/2]

procedure scale	(	class(oft_native_cvector), intent(inout)	self,
		complex(c8), intent(in)	alpha
	)

Scale vector by a scalar.

self = \( \alpha \) self

Parameters

[in]

alpha

Factor to scale field

set() [1/2]

procedure(cvec_set), deferred set ( class(oft_cvector), intent(inout)  self, complex(c8), intent(in)  alpha, integer(i4), intent(in), optional  iblock, logical, intent(in), optional  random  )

pure virtualinherited

Set all elements to a scalar.

set() [2/2]

procedure set	(	class(oft_native_cvector), intent(inout)	self,
		complex(c8), intent(in)	alpha,
		integer(i4), intent(in), optional	iblock,
		logical, intent(in), optional	random
	)

Set all elements to a scalar.

Parameters

[in]	alpha	Updated vector value
[in]	random	Set to random number, if true alpha is ignored (optional)

stitch() [1/2]

procedure(cvec_stitch), deferred stitch ( class(oft_cvector), intent(inout)  self, integer(i4), intent(in)  up_method  )

pure virtualinherited

Perform global sitching.

stitch() [2/2]

procedure stitch	(	class(oft_native_cvector), intent(inout)	self,
		integer(i4), intent(in)	up_method
	)

Perform global stitching.

Parameters

[in]

up_method

Type of stitching to perform

sum() [1/2]

procedure(cvec_sum), deferred sum ( class(oft_cvector), intent(inout)  self )

pure virtualinherited

Sum reduction over field.

sum() [2/2]

procedure sum

(

class(oft_native_cvector), intent(inout)

self

)

Sum reduction over vector.

Returns

\( \sum_i self_i \)

Member Data Documentation

local_tmp

complex(c8), dimension(:), pointer, contiguous local_tmp => NULL()

map

type(oft_map), dimension(:), pointer map => NULL()

inherited

Block mapping.

n

integer(i4) n = -1

inherited

Local size of field.

nblocks

integer(i4) nblocks = 1

inherited

Number of blocks.

ng

integer(i8) ng = -1

inherited

Gobal size of field.

nslice

integer(i4) nslice = -1

inherited

Local size of field.

stitch_info

type(oft_seam), pointer stitch_info => NULL()

inherited

Seam information.

v

complex(c8), dimension(:), pointer, contiguous v => NULL()

Vector values.

---

The documentation for this type was generated from the following file:

• /home/runner/work/OpenFUSIONToolkit/OpenFUSIONToolkit/src/lin_alg/native_la.F90