Circle_ Derived Type

type, public :: Circle_


Contents


Components

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

Type-Bound Procedures

procedure, public :: Init => InitCircle

  • public subroutine InitCircle(obj, dim)

    Arguments

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

procedure, public :: SetCenter => InitSetCenterCircle

  • public subroutine InitSetCenterCircle(obj, point)

    Arguments

    Type IntentOptional AttributesName
    class(Circle_), intent(inout) :: obj
    class(Point_), intent(in) :: point

procedure, public :: SetRadius => InitSetRadiusCircle

  • public subroutine InitSetRadiusCircle(obj, radius)

    Arguments

    Type IntentOptional AttributesName
    class(Circle_), intent(inout) :: obj
    real(kind=real64), intent(in) :: radius

procedure, public :: getArea => getAreaCircle

  • public function getAreaCircle(obj) result(area)

    Arguments

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

    Return Value real(kind=real64)

procedure, public :: show => showCircle

  • public subroutine showCircle(obj, Name)

    Arguments

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