ReorderKernelForGFT.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	shiftkerneltoeven (ispec, y_dim_kernel_orig, x_dim_kernel_orig, y_dim_kernel, x_dim_kernel, kernel_orig, kernel_shifted)
	ShiftKernelToEven.
subroutine	reorderkernelforgft (dim_y, dim_x, shifted_kernel, reorderedkernel)
	ReorderKernelForGFT.
real function	distance (x, x0, y, y0)
	Distance.

Function/Subroutine Documentation

distance()

real function distance	(	real, intent(in)	x,
		real, intent(in)	x0,
		real, intent(in)	y,
		real, intent(in)	y0 )

Distance.

---

Euclidian distance between coordinate pairs (x0,y0) and (x,y). Currently not used

• IN:

  • Parameters

    x0,y0	: one point
    x0,y0	: another point

• OUT:

  • Returns

    Distance: REAL

Definition at line 117 of file ReorderKernelForGFT.f90.

reorderkernelforgft()

subroutine reorderkernelforgft	(	integer, intent(in)	dim_y,
		integer, intent(in)	dim_x,
		real(kind=gft_prec), dimension(0:(dim_y-1),dim_x), intent(in)	shifted_kernel,
		real(kind=gft_prec), dimension(0:(dim_y-1),dim_x), intent(out)	reorderedkernel )

ReorderKernelForGFT.

---

Mirrors the dispersal kernel at the center point, so that it is stored in the 4 corners

• USE: GFT
• IN:

  • Parameters

    dim_y,dim_x	dimensions of shifted kernel; of intermediate area
    shifted_kernel	shifted to even dispersal kernel

  • FROM GFT
    • GFT_Prec : INTEGER : precision of the GFT calculations
• OUT:

  Parameters

  reorderedkernel

  the array with the kernel in the 4 corners

• CALLED FROM:
  • GFT2DTransformKernel in GFTConvolution2D.f90
• CALLS:
  • PrintMatrixASXY2File in GFT_Interact.f90

Definition at line 71 of file ReorderKernelForGFT.f90.

shiftkerneltoeven()

subroutine shiftkerneltoeven	(	integer, intent(in)	ispec,
		integer, intent(in)	y_dim_kernel_orig,
		integer, intent(in)	x_dim_kernel_orig,
		integer, intent(in)	y_dim_kernel,
		integer, intent(in)	x_dim_kernel,
		real(kind=gft_prec), dimension(1: y_dim_kernel_orig ,1: x_dim_kernel_orig), intent(in)	kernel_orig,
		real(kind=gft_prec), dimension(0: y_dim_kernel-1 ,x_dim_kernel), intent(out)	kernel_shifted )

ShiftKernelToEven.

---

Shifts the dispersal kernel to even dimensions. The center cell is spread out to the 4 center cells and the other cells pushed to the corners

• USE: GFT: for GFT_Prec, the precision of the GFT Real numbers
• IN:

  • Parameters

    ispec	species index
    y_dim_kernel_orig,x_dim_kernel_orig	dimensions of original kernel
    y_dim_kernel,x_dim_kernel	next even dimensions of original kernel, dimensions of the shifted kernel
    kernel_orig	original dispersal kernel

  • FROM GFT
    • GFT_Prec : INTEGER : precision of the GFT calculations
• OUT:

  • Parameters

    kernel_shifted

    the kernel with even dimensions

• CALLED FROM:
  • CalculateKernelTransformation in GFT_Interact

Definition at line 18 of file ReorderKernelForGFT.f90.