Rectangle_ Derived Type

type, public :: Rectangle_


Contents


Components

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

Type-Bound Procedures

procedure, public :: Init => InitRectangle

  • public subroutine InitRectangle(obj, dim)

    Arguments

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

procedure, public :: create => createRectangle

  • public subroutine createRectangle(obj)

    Arguments

    Type IntentOptional AttributesName
    class(Rectangle_), intent(inout) :: obj

procedure, public :: move => moveRectangle

  • public subroutine moveRectangle(obj, x, y, z)

    Arguments

    Type IntentOptional AttributesName
    class(Rectangle_), intent(inout) :: obj
    real(kind=real64), intent(in), optional :: x
    real(kind=real64), intent(in), optional :: y
    real(kind=real64), intent(in), optional :: z

procedure, public :: setNode => setNodeRectangle

  • public subroutine setNodeRectangle(obj, point, order)

    Arguments

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

procedure, public :: import => importRectangle

  • public subroutine importRectangle(obj, NodCoord, FileName)

    Arguments

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

procedure, public :: getCircle => getCircleRectangle

  • public subroutine getCircleRectangle(obj, type_of_circle, circle)

    Arguments

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

procedure, public :: getArea => getAreaRectangle

  • public function getAreaRectangle(obj) result(area)

    Arguments

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

    Return Value real(kind=real64)

procedure, public :: show => showRectangle

  • public subroutine showRectangle(obj, Name, option)

    Arguments

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

procedure, public :: contact => contactRectangle

  • public function contactRectangle(obj, Rectangle, threshold) result(contact)

    Arguments

    Type IntentOptional AttributesName
    class(Rectangle_), intent(in) :: obj
    class(Rectangle_), intent(in) :: Rectangle
    integer(kind=int32), intent(in), optional :: threshold

    Return Value logical