dimensions – Morfeus Framework

type, public :: dimensions

Inherited by

Components

Type	Visibility		Name
integer,	private	::	l
integer,	private	::	m
integer,	private	::	t
integer,	private	::	theta

Type-Bound Procedures

procedure, public :: bcast_dim

interface

private module subroutine bcast_dim(dim)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(inout) :: dim

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(inout)			::	dim

procedure, public :: debug_dim

interface

private module subroutine debug_dim(dim)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dim

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dim

procedure, public :: dim_diff

interface

private pure module function dim_diff(dim1, dim2)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dim1

type(dimensions), intent(in) :: dim2

Return Value type(dimensions)

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dim1
type(dimensions),	intent(in)			::	dim2

procedure, public :: dim_div

interface

private pure module function dim_div(dim1, dim2)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dim1

type(dimensions), intent(in) :: dim2

Return Value type(dimensions)

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dim1
type(dimensions),	intent(in)			::	dim2

procedure, public :: dim_mul

interface

private pure module function dim_mul(dim1, dim2)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dim1

type(dimensions), intent(in) :: dim2

Return Value type(dimensions)

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dim1
type(dimensions),	intent(in)			::	dim2

procedure, public :: dim_pow

interface

private pure module function dim_pow(dim, n)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dim

integer, intent(in) :: n

Return Value type(dimensions)

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dim
integer,	intent(in)			::	n

procedure, public :: dim_sum

interface

private pure module function dim_sum(dim1, dim2)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dim1

type(dimensions), intent(in) :: dim2

Return Value type(dimensions)

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dim1
type(dimensions),	intent(in)			::	dim2

generic, public :: nemo_sizeof => nemo_dimensions_sizeof

private interface nemo_dimensions_sizeof()

Arguments
None

generic, public :: **operator(*)** => dim_mul

private interface dim_mul()

Arguments
None

generic, public :: operator()** => dim_pow

private interface dim_pow()

Arguments
None

generic, public :: operator(+) => dim_sum

private interface dim_sum()

Arguments
None

generic, public :: operator(-) => dim_diff

private interface dim_diff()

Arguments
None

generic, public :: operator(/) => dim_div

private interface dim_div()

Arguments
None

procedure, public :: quantity

interface

public module function quantity(dim)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dim

Return Value character(len=:), allocatable

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dim

generic, public :: sqrt => dim_sqrt

private interface dim_sqrt()

Arguments
None

procedure, private :: dim_sqrt

interface

private module function dim_sqrt(dim)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dim

Return Value type(dimensions)

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dim

procedure, private :: nemo_dimensions_sizeof

interface

private elemental module function nemo_dimensions_sizeof(dims)

Arguments

Type Intent Optional Attributes Name

class(dimensions), intent(in) :: dims

Return Value integer(kind=nemo_int_long_)

Type	Intent	Optional	Attributes		Name
class(dimensions),	intent(in)			::	dims

Source Code

    TYPE dimensions
        PRIVATE
        INTEGER :: l
        INTEGER :: m
        INTEGER :: t
        INTEGER :: theta
    CONTAINS
        PROCEDURE :: bcast_dim, quantity
        PROCEDURE, PRIVATE :: dim_sqrt
        GENERIC, PUBLIC :: sqrt => dim_sqrt
        PROCEDURE :: debug_dim
        PROCEDURE :: dim_sum, dim_diff, dim_mul, dim_div, dim_pow
        GENERIC :: OPERATOR(+)  => dim_sum
        GENERIC :: OPERATOR(-)  => dim_diff
        GENERIC :: OPERATOR(*)  => dim_mul
        GENERIC :: OPERATOR(/)  => dim_div
        GENERIC :: OPERATOR(**) => dim_pow
        PROCEDURE, PRIVATE :: nemo_dimensions_sizeof
        GENERIC, PUBLIC :: nemo_sizeof => nemo_dimensions_sizeof
    END TYPE dimensions

dimensions Derived Type

Contents

Variables

Type-Bound Procedures

Source Code

type, public :: dimensions

Inherited by

Contents

Variables

Type-Bound Procedures

Source Code

Components

Type-Bound Procedures

procedure, public :: bcast_dim

interface

private module subroutine bcast_dim(dim) Implementation →

Arguments

procedure, public :: debug_dim

interface

private module subroutine debug_dim(dim) Implementation →

Arguments

procedure, public :: dim_diff

interface

private pure module function dim_diff(dim1, dim2) Implementation →

Arguments

Return Value type(dimensions)

procedure, public :: dim_div

interface

private pure module function dim_div(dim1, dim2) Implementation →

Arguments

Return Value type(dimensions)

procedure, public :: dim_mul

interface

private pure module function dim_mul(dim1, dim2) Implementation →

Arguments

Return Value type(dimensions)

procedure, public :: dim_pow

interface

private pure module function dim_pow(dim, n) Implementation →

Arguments

Return Value type(dimensions)

procedure, public :: dim_sum

interface

private pure module function dim_sum(dim1, dim2) Implementation →

Arguments

Return Value type(dimensions)

generic, public :: nemo_sizeof => nemo_dimensions_sizeof

private interface nemo_dimensions_sizeof()

Arguments

generic, public :: operator(*) => dim_mul

private interface dim_mul()

Arguments

generic, public :: operator(**) => dim_pow

private interface dim_pow()

Arguments

generic, public :: operator(+) => dim_sum

private interface dim_sum()

Arguments

generic, public :: operator(-) => dim_diff

private interface dim_diff()

Arguments

generic, public :: operator(/) => dim_div

private interface dim_div()

Arguments

procedure, public :: quantity

interface

public module function quantity(dim) Implementation →

Arguments

Return Value character(len=:), allocatable

generic, public :: sqrt => dim_sqrt

private interface dim_sqrt()

Arguments

procedure, private :: dim_sqrt

interface

private module function dim_sqrt(dim) Implementation →

Arguments

Return Value type(dimensions)

procedure, private :: nemo_dimensions_sizeof

interface

private elemental module function nemo_dimensions_sizeof(dims) Implementation →

private module subroutine bcast_dim(dim)

private module subroutine debug_dim(dim)

private pure module function dim_diff(dim1, dim2)

private pure module function dim_div(dim1, dim2)

private pure module function dim_mul(dim1, dim2)

private pure module function dim_pow(dim, n)

private pure module function dim_sum(dim1, dim2)

generic, public :: **operator(*)** => dim_mul

generic, public :: operator()** => dim_pow

public module function quantity(dim)

private module function dim_sqrt(dim)

private elemental module function nemo_dimensions_sizeof(dims)