Tetrahedron_ Derived Type

type, public :: Tetrahedron_


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 IntentOptional Attributes Name
    class(Tetrahedron_), intent(inout) :: obj
    real(kind=real64), intent(in) :: NodCoord(4,3)

procedure, public :: getCircle => getCircleTetrahedron