fdist2d Derived Type

type, public, abstract :: fdist2d

Inherits

Inherited by

Contents

Variables

sp err p npf npmax

Type-Bound Procedures

new del dist init_fdist2d end_fdist2d dist2d getnpmax getnpf

Components

Type	Visibility	Attributes		Name		Initial
class(spect2d),	public,	pointer	::	sp	=>	null()
class(perrors),	public,	pointer	::	err	=>	null()
class(parallel_pipe),	public,	pointer	::	p	=>	null()
integer,	private		::	npf
integer,	private		::	npmax

Type-Bound Procedures

generic, public :: new => init_fdist2d

private subroutine init_fdist2d_000(this, input, i)

Arguments

Type	Intent	Optional	Attributes		Name
class(fdist2d_000),	intent(inout)			::	this
type(input_json),	intent(inout),		pointer	::	input
integer,	intent(in)			::	i

generic, public :: del => end_fdist2d

private subroutine end_fdist2d(this)

Arguments

Type Intent Optional Attributes Name

class(fdist2d), intent(inout) :: this

generic, public :: dist => dist2d

private subroutine dist2d_000(this, part2d, npp, fd, s)

Arguments

Type	Intent	Optional	Attributes		Name
class(fdist2d_000),	intent(inout)			::	this
real,	intent(inout),		dimension(:,:), pointer	::	part2d
integer,	intent(inout)			::	npp
class(ufield2d),	intent(in),		pointer	::	fd
real,	intent(in)			::	s

procedure(ab_init_fdist2d), private, deferred :: init_fdist2d

subroutine ab_init_fdist2d(this, input, i) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(fdist2d),	intent(inout)			::	this
type(input_json),	intent(inout),		pointer	::	input
integer,	intent(in)			::	i

procedure, private :: end_fdist2d

private subroutine end_fdist2d(this)

Arguments

Type Intent Optional Attributes Name

class(fdist2d), intent(inout) :: this

procedure(ab_dist2d), private, deferred :: dist2d

subroutine ab_dist2d(this, part2d, npp, fd, s) Prototype

Arguments

Type	Intent	Optional	Attributes		Name
class(fdist2d),	intent(inout)			::	this
real,	intent(inout),		dimension(:,:), pointer	::	part2d
integer,	intent(inout)			::	npp
class(ufield2d),	intent(in),		pointer	::	fd
real,	intent(in)			::	s

procedure, public :: getnpmax

private function getnpmax(this)

Arguments

Type Intent Optional Attributes Name

class(fdist2d), intent(in) :: this

Return Value integer

procedure, public :: getnpf

private function getnpf(this)

Arguments

Type Intent Optional Attributes Name

class(fdist2d), intent(in) :: this

Return Value integer