seefmm_mix Module

*** SEEFMM_MIX - Implementation of Simple Exponential Expansion FMM

Interface. ----------

Uses

- ecsort_mix
- WTS500_MOD
- PARKIND_ECTRANS
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Derived Types

type, public :: fmm_type

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=jpim),	public		::	nxy
integer(kind=jpim),	public		::	nx
integer(kind=jpim),	public		::	nquad
integer(kind=jpim),	public		::	ncik
real(kind=JPRBT),	public		::	rw(56)
real(kind=JPRBT),	public,	pointer	::	rdexp(:,:)
integer(kind=jpim),	public,	pointer	::	index(:)
integer(kind=jpim),	public,	pointer	::	nclose(:)
real(kind=JPRBT),	public,	pointer	::	cik(:)

Subroutines

public recursive subroutine setup_seefmm(kx, px, ky, py, ydfmm, pdiff)

*** SETUP_SEEFMM - Setup seefmm

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=jpim),	intent(in)			::	kx
real(kind=jprd),	intent(in)			::	px(:)
integer(kind=jpim),	intent(in)			::	ky
real(kind=jprd),	intent(in)			::	py(:)
type(fmm_type),	intent(out)			::	ydfmm
real(kind=jprd),	intent(in),	optional		::	pdiff(:,:)

public subroutine free_seefmm(ydfmm)

*** FREE_SEEFMM - Release memory

Arguments

Type	Intent	Optional	Attributes		Name
type(fmm_type),	intent(inout)			::	ydfmm

public recursive subroutine seefmm_mulm(ydfmm, km, kskip, ldxout, pq, ptheta)

Arguments

Type	Intent	Optional	Attributes		Name
type(fmm_type),	intent(in)			::	ydfmm
integer(kind=jpim),	intent(in)			::	km
integer(kind=jpim),	intent(in)			::	kskip
logical,	intent(in)			::	ldxout
real(kind=JPRBT),	intent(in)			::	pq(:,:)
real(kind=JPRBT),	intent(out)			::	ptheta(:,:)