m_psml_class_Grid Module

Uses

- m_psml_assoc_list
- m_psml_external_interfaces

Contents

Variables

mod_name dp

Interfaces

print_type assignment(=) init delete refcount id name initialized same

Derived Types

Grid_ Grid

Functions

initialized_ same_ refcount_ id_ name_ valGrid annotationGrid sizeGrid

Subroutines

init_ delete_ assign_ tag_new_object delete_Data newGrid printGrid

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	public,	parameter	::	mod_name	=	"Grid"
integer,	public,	parameter	::	dp	=	selected_real_kind(10, 100)

Interfaces

public interface print_type

private subroutine printGrid(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

public interface assignment(=)

private subroutine assign_(this, other)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(inout)			::	this
type(Grid),	intent(in)			::	other

public interface init

private subroutine init_(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(inout)			::	this

public interface delete

private subroutine delete_(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(inout)			::	this

public interface refcount

private function refcount_(this) result(count)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value integer

public interface id

private function id_(this) result(str)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value character(len=36)

public interface name

private function name_(this) result(str)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value character(len=len_trim)

public interface initialized

private pure function initialized_(this) result(init)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value logical

public interface same

private pure function same_(this1, this2) result(same)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this1
type(Grid),	intent(in)			::	this2

Return Value logical

Derived Types

type, public :: Grid_

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	refCount	=	0
character(len=36),	public		::	id	=	"null_id"
character(len=256),	public		::	name	=	"null Grid"
integer,	public		::	npts	=	0
real(kind=dp),	public,	pointer	::	grid_data(:)	=>	null()
type(assoc_list_t),	public		::	annotation

type, public :: Grid

Components

Type	Visibility	Attributes		Name		Initial
type(Grid_),	public,	pointer	::	data	=>	null()

Functions

private pure function initialized_(this) result(init)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value logical

private pure function same_(this1, this2) result(same)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this1
type(Grid),	intent(in)			::	this2

Return Value logical

private function refcount_(this) result(count)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value integer

private function id_(this) result(str)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value character(len=36)

private function name_(this) result(str)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value character(len=len_trim)

public function valGrid(this) result(p)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value real(kind=dp), pointer, (:)

public function annotationGrid(this) result(p)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value type(assoc_list_t), pointer

public function sizeGrid(this) result(n)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this

Return Value integer

Subroutines

private subroutine init_(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(inout)			::	this

private subroutine delete_(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(inout)			::	this

private subroutine assign_(this, other)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(inout)			::	this
type(Grid),	intent(in)			::	other

private subroutine tag_new_object(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(inout)			::	this

private subroutine delete_Data(gd)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid_)				::	gd

public subroutine newGrid(this, n, name)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(inout)			::	this
integer,	intent(in)			::	n
character(len=*),	intent(in),	optional		::	name

private subroutine printGrid(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(Grid),	intent(in)			::	this