oft_stitching Module Reference

Detailed Description

Subroutines for general global stitching operations.

Author

Chris Hansen

Date

Spring 2010

Data Types
interface	oft_global_dp
	Perform a global dot product for vectors with a given seam structure. More...
interface	oft_global_reduction
	Perform a global sum reduction for a vector with a given seam structure. More...
interface	oft_global_stitch
	Stitch values along domain boundaries. More...
type	oft_seam
	Global stitch structure. More...
type	seam_list
	Seam object pointer. More...

Functions/Subroutines
subroutine	destory_seam (self)
	Validate stitching structure.
complex(c8) function	global_dp_c8 (self, a, b, n, no_reduce)
	complex(c8) dot_product implementation of oft_global_reduction
real(r8) function	global_dp_r8 (self, a, b, n, no_reduce)
	real(r8) dot_product implementation of oft_global_reduction
complex(c8) function	global_reduction_c8 (self, a, n)
	complex(c8) array implementation of oft_global_reduction
real(r8) function	global_reduction_r8 (self, a, n)
	real(r8) array implementation of oft_global_reduction
subroutine	global_stitch_c8 (self, a, up_method)
	complex(c8) implementation of oft_global_stitch
subroutine	global_stitch_r8 (self, a, up_method)
	real(r8) implementation of oft_global_stitch
subroutine	oft_stitch_check (self)
	Validate stitching structure.

Function/Subroutine Documentation

destory_seam()

subroutine destory_seam

(

type(oft_seam), intent(inout)

self

)

Validate stitching structure.

global_dp_c8()

complex(c8) function global_dp_c8	(	type(oft_seam), intent(inout)	self,
		complex(c8), dimension(n), intent(in)	a,
		complex(c8), dimension(n), intent(in)	b,
		integer(i4), intent(in)	n,
		logical, intent(in), optional	no_reduce )

complex(c8) dot_product implementation of oft_global_reduction

Parameters

[in,out]	self	Seam structure
[in]	a	Local vector 1 for dot_product
[in]	b	Local vector 2 for dot_product
[in]	n	Length of local arrays
[in]	no_reduce	Skip global reduction step

global_dp_r8()

real(r8) function global_dp_r8	(	type(oft_seam), intent(inout)	self,
		real(r8), dimension(n), intent(in)	a,
		real(r8), dimension(n), intent(in)	b,
		integer(i4), intent(in)	n,
		logical, intent(in), optional	no_reduce )

real(r8) dot_product implementation of oft_global_reduction

Parameters

[in,out]	self	Seam structure
[in]	a	Local vector 1 for dot_product
[in]	b	Local vector 2 for dot_product
[in]	n	Length of local arrays
[in]	no_reduce	Skip global reduction step

global_reduction_c8()

complex(c8) function global_reduction_c8	(	type(oft_seam), intent(inout)	self,
		complex(c8), dimension(n), intent(in)	a,
		integer(i4), intent(in)	n )

complex(c8) array implementation of oft_global_reduction

Parameters

[in,out]	self	Seam structure
[in]	a	Local data for reduction
[in]	n	Length of local array for reduction

global_reduction_r8()

real(r8) function global_reduction_r8	(	type(oft_seam), intent(inout)	self,
		real(r8), dimension(n), intent(in)	a,
		integer(i4), intent(in)	n )

real(r8) array implementation of oft_global_reduction

Parameters

[in,out]	self	Seam structure
[in]	a	Local data for reduction
[in]	n	Length of local array for reduction

global_stitch_c8()

subroutine global_stitch_c8	(	type(oft_seam), intent(inout)	self,
		complex(c8), dimension(:), intent(inout)	a,
		integer(i4), intent(in)	up_method )

complex(c8) implementation of oft_global_stitch

Parameters

[in,out]	self	Seam structure
[in]	up_method	Stitching method (0 or 1)
[in,out]	a	Local data to be stitched

global_stitch_r8()

subroutine global_stitch_r8	(	type(oft_seam), intent(inout)	self,
		real(r8), dimension(:), intent(inout)	a,
		integer(i4), intent(in)	up_method )

real(r8) implementation of oft_global_stitch

Parameters

[in,out]	self	Seam structure
[in]	up_method	Stitching method (0 or 1)
[in,out]	a	Local data to be stitched

oft_stitch_check()

subroutine oft_stitch_check

(

type(oft_seam), intent(inout)

self

)

Validate stitching structure.