Triangle_ Derived Type

  1. GeometryClass.f90
  2. GeometryClass
  3. Triangle_

type, public :: Triangle_


Contents

Variables

Type-Bound Procedures


Components

TypeVisibility AttributesNameInitial
real(kind=real64), public, allocatable:: NodCoord(:,:)
real(kind=real64), public, allocatable:: OuterNormal(:)
real(kind=real64), public, allocatable:: Center(:)

Type-Bound Procedures

procedure, public :: Init => InitTriangle

  • public subroutine InitTriangle(obj, dim)

    Arguments

    Type IntentOptional AttributesName
    class(Triangle_), intent(inout) :: obj
    integer(kind=int32), intent(in), optional :: dim

procedure, public :: setNode => setNodeTriangle

  • public subroutine setNodeTriangle(obj, point, order)

    Arguments

    Type IntentOptional AttributesName
    class(Triangle_), intent(inout) :: obj
    class(Point_), intent(in) :: point
    integer(kind=int32), intent(in) :: order

procedure, public :: import => importTriangle

  • public subroutine importTriangle(obj, NodCoord, FileName)

    Arguments

    Type IntentOptional AttributesName
    class(Triangle_), intent(inout) :: obj
    integer(kind=int32), intent(in), optional :: NodCoord(:,:)
    character(len=*), intent(in), optional :: FileName

procedure, public :: getCircle => getCircleTriangle

  • public subroutine getCircleTriangle(obj, type_of_circle, circle)

    Arguments

    Type IntentOptional AttributesName
    class(Triangle_), intent(in) :: obj
    character(len=*), intent(in) :: type_of_circle
    type(Circle_), intent(inout) :: circle

procedure, public :: getArea => getAreaTriangle

  • public function getAreaTriangle(obj) result(area)

    Arguments

    Type IntentOptional AttributesName
    class(Triangle_), intent(in) :: obj

    Return Value real(kind=real64)

procedure, public :: show => showTriangle

  • public subroutine showTriangle(obj, Name, option)

    Arguments

    Type IntentOptional AttributesName
    class(Triangle_), intent(in) :: obj
    character(len=*), intent(in), optional :: Name
    character(len=*), intent(in), optional :: option

procedure, public :: GetOuterNormal => GetOuterNormalTriangle