calcdisplace_mod Module

---

calcdisplace

Interfaces

public interface gcd

• private function gcd_array_i4(ain) result(bsize)

  Arguments

  Type	Intent	Optional	Attributes		Name
  integer(kind=i4),	intent(in),		dimension(:)	::	ain

  Return Value integer

• private function gcd_array_i8(ain) result(bsize)

  Arguments

  Type	Intent	Optional	Attributes		Name
  integer(kind=pio_offset),	intent(in),		dimension(:)	::	ain

  Return Value integer(kind=pio_offset)

• private function gcd_pair_i4(u, v) result(gcd)

  Arguments

  Type	Intent	Optional	Attributes		Name
  integer(kind=i4),	intent(in)			::	u
  integer(kind=i4),	intent(in)			::	v

  Return Value integer

• private function gcd_pair_i8(u, v) result(gcd)

  Arguments

  Type	Intent	Optional	Attributes		Name
  integer(kind=pio_offset),	intent(in)			::	u
  integer(kind=pio_offset),	intent(in)			::	v

  Return Value integer(kind=pio_offset)

Subroutines

public subroutine calcdisplace(bsize, dof, displace)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=i4),	intent(in)			::	bsize
integer(kind=pio_offset),	intent(in)			::	dof(:)
integer(kind=pio_offset),	intent(inout)			::	displace(:)

public subroutine calcdisplace_box(gsize, lenblock, start, count, ndim, displace)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=i4),	intent(in)			::	gsize(:)
integer(kind=i4),	intent(in)			::	lenblock
integer(kind=PIO_offset),	intent(in)			::	start(:)
integer(kind=PIO_offset),	intent(in)			::	count(:)
integer(kind=i4),	intent(in)			::	ndim
integer(kind=i4),			pointer	::	displace(:)

public subroutine GCDblocksize(arr_in, bsize, debug)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=pio_offset),	intent(in),		dimension(:)	::	arr_in
integer(kind=pio_offset),	intent(out)			::	bsize
integer,	intent(in),	optional		::	debug