Point_ Derived Type

type, public :: Point_

Contents

Variables

coord name

Type-Bound Procedures

Init set show

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	coord(:)
character(len=30),	public		::	name

Type-Bound Procedures

procedure, public :: Init => InitPoint

• public subroutine InitPoint(obj, dim)

  Arguments

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

procedure, public :: set => setPoint

• public subroutine setPoint(obj, x, y, z, xvec)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(Point_),	intent(inout)			::	obj
  real(kind=real64),	intent(in),	optional		::	x
  real(kind=real64),	intent(in),	optional		::	y
  real(kind=real64),	intent(in),	optional		::	z
  real(kind=real64),	intent(in),	optional		::	xvec(:)

procedure, public :: show => showPoint

• public subroutine showPoint(obj, Name)

  Arguments

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