type_side_first Derived Type

type, public, extends(abst_side) :: type_side_first


Inherits

type~~type_side_first~~InheritsGraph type~type_side_first type_side_first type~abst_side abst_side type~type_side_first->type~abst_side type~type_dp_pointer type_dp_pointer type~abst_side->type~type_dp_pointer x, y, z

Components

Type Visibility Attributes Name Initial
integer(kind=int32), public, allocatable :: connectivity(:)

connectivity information
integer(kind=int32), public, allocatable :: connectivity_reordered(:)

reordered connectivity information
real(kind=real64), public, allocatable :: gauss(:)

Gauss Quadrature points Coordinate
integer(kind=int32), public :: num_gauss

Number of Gauss Quadrature points
real(kind=real64), public, allocatable :: weight(:)

Gauss weight
type(type_dp_pointer), public, allocatable :: x(:)

X coordinate
type(type_dp_pointer), public, allocatable :: y(:)

Y coordinate
type(type_dp_pointer), public, allocatable :: z(:)

Z coordinate

Constructor

public interface type_side_first


Type-Bound Procedures

procedure, public, pass(self) :: dpsi_dxi => dpsi_dxi_side_first

  • interface

    private module function dpsi_dxi_side_first(self, i) result(dpsi)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self
    integer(kind=int32), intent(in) :: i

    Return Value real(kind=real64)

procedure, public, pass(self) :: get_dimension => get_dimension_side_first

  • interface

    private module function get_dimension_side_first(self) result(dimension)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self

    Return Value integer(kind=int32)

procedure, public, pass(self) :: get_group => get_group_side_first

  • interface

    private module function get_group_side_first(self) result(group)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self

    Return Value integer(kind=int32)

procedure, public, pass(self) :: get_id => get_id_side_first

  • interface

    private module function get_id_side_first(self) result(id)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self

    Return Value integer(kind=int32)

procedure, public, pass(self) :: get_num_gauss => get_num_gauss_side_first

  • interface

    private module function get_num_gauss_side_first(self) result(num_gauss)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self

    Return Value integer(kind=int32)

procedure, public, pass(self) :: get_num_nodes => get_num_nodes_side_first

  • interface

    private module function get_num_nodes_side_first(self) result(n)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self

    Return Value integer(kind=int32)

procedure, public, pass(self) :: get_order => get_order_side_first

  • interface

    private module function get_order_side_first(self) result(order)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self

    Return Value integer(kind=int32)

procedure, public, pass(self) :: get_type => get_type_side_first

  • interface

    private module function get_type_side_first(self) result(type)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self

    Return Value integer(kind=int32)

procedure, public, pass(self) :: psi => psi_side_first

  • interface

    private module function psi_side_first(self, i, xi) result(psi)

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_first), intent(in) :: self
    integer(kind=int32), intent(in) :: i
    real(kind=real64), intent(in) :: xi

    Return Value real(kind=real64)

Source Code

    type, extends(abst_side) :: type_side_first
    contains
        procedure, pass(self) :: get_id        => get_id_side_first !&
        procedure, pass(self) :: get_type      => get_type_side_first !&
        procedure, pass(self) :: get_num_nodes => get_num_nodes_side_first !&
        procedure, pass(self) :: get_group     => get_group_side_first !&
        procedure, pass(self) :: get_order     => get_order_side_first !&
        procedure, pass(self) :: get_dimension => get_dimension_side_first !&
        procedure, pass(self) :: get_num_gauss => get_num_gauss_side_first !
        !----------------------------------------------------------------------------------
        procedure, pass(self) :: psi           => psi_side_first !&
        procedure, pass(self) :: dpsi_dxi      => dpsi_dxi_side_first !&
    end type type_side_first