Tetrahedron_ Derived Type

type, public :: Tetrahedron_

Contents

Variables

NodCoord radius center

Type-Bound Procedures

Init getCircle

Components

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

Type-Bound Procedures

procedure, public :: Init => InitTetrahedron

• public subroutine InitTetrahedron(obj, NodCoord)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(Tetrahedron_),	intent(inout)			::	obj
  real(kind=real64),	intent(in)			::	NodCoord(4,3)

procedure, public :: getCircle => getCircleTetrahedron

• public subroutine getCircleTetrahedron(obj)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(Tetrahedron_),	intent(inout)			::	obj