fdist2d_000 Derived Type

type, public, extends(fdist2d) :: fdist2d_000

Inherits

Contents

Variables

sp err p xppc yppc qm den long_prof s fs

Type-Bound Procedures

new del dist getnpmax getnpf init_fdist2d dist2d

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		::	xppc
integer,	private		::	yppc
real,	private		::	qm
real,	private		::	den
character(len=:),	private,	allocatable	::	long_prof
real,	private,	dimension(:), allocatable	::	s
real,	private,	dimension(:), allocatable	::	fs

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, 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

procedure, private :: init_fdist2d => init_fdist2d_000

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

procedure, private :: dist2d => dist2d_000

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