type_side_second Derived Type

type, public, extends(abst_side) :: type_side_second


Inherits

type~~type_side_second~~InheritsGraph type~type_side_second type_side_second type~abst_side abst_side type~type_side_second->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_second


Type-Bound Procedures

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

  • interface

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

    Arguments

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

    Return Value real(kind=real64)

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

  • interface

    private module function get_dimension_side_second(self) result(dimension)

    Arguments

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

    Return Value integer(kind=int32)

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

  • interface

    private module function get_group_side_second(self) result(group)

    Arguments

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

    Return Value integer(kind=int32)

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

  • interface

    private module function get_id_side_second(self) result(id)

    Arguments

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

    Return Value integer(kind=int32)

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

  • interface

    private module function get_num_gauss_side_second(self) result(num_gauss)

    Arguments

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

    Return Value integer(kind=int32)

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

  • interface

    private module function get_num_nodes_side_second(self) result(n)

    Arguments

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

    Return Value integer(kind=int32)

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

  • interface

    private module function get_order_side_second(self) result(order)

    Arguments

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

    Return Value integer(kind=int32)

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

  • interface

    private module function get_type_side_second(self) result(type)

    Arguments

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

    Return Value integer(kind=int32)

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

  • interface

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

    Arguments

    Type IntentOptional Attributes Name
    class(type_side_second), 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_second
    contains
        procedure, pass(self) :: get_id        => get_id_side_second !&
        procedure, pass(self) :: get_type      => get_type_side_second !&
        procedure, pass(self) :: get_num_nodes => get_num_nodes_side_second !&
        procedure, pass(self) :: get_group     => get_group_side_second !&
        procedure, pass(self) :: get_order     => get_order_side_second !&
        procedure, pass(self) :: get_dimension => get_dimension_side_second !&
        procedure, pass(self) :: get_num_gauss => get_num_gauss_side_second !
        !----------------------------------------------------------------------------------
        procedure, pass(self) :: psi           => psi_side_second !&
        procedure, pass(self) :: dpsi_dxi      => dpsi_dxi_side_second !&
    end type type_side_second