Sphere_ Derived Type

type, public :: Sphere_

Contents

Variables

radius center

Type-Bound Procedures

Init SetCenter SetRadius show

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public		::	radius
real(kind=real64),	public		::	center(3)

Type-Bound Procedures

procedure, public :: Init => InitSphere

• public subroutine InitSphere(obj, dim)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(Sphere_),	intent(inout)			::	obj
  integer(kind=int32),	intent(inout),	optional		::	dim

procedure, public :: SetCenter => InitSetCenterSphere

• public subroutine InitSetCenterSphere(obj, point)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(Sphere_),	intent(inout)			::	obj
  class(Point_),	intent(in)			::	point

procedure, public :: SetRadius => InitSetRadiusSphere

• public subroutine InitSetRadiusSphere(obj, radius)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(Sphere_),	intent(inout)			::	obj
  real(kind=real64),	intent(in)			::	radius

procedure, public :: show => showSphere

• public subroutine showSphere(obj, Name)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(Sphere_),	intent(in)			::	obj
  character(len=*),	intent(in),	optional		::	Name