GeometryClass – plantFEM

Uses

Derived Types

Point_ Line_ Circle_ Sphere_ Triangle_ Rectangle_ Tetragon_ Tetrahedron_ Octahedron_

Functions

getAreaCircle getAreaTriangle getAreaRectangle contactRectangle

Subroutines

InitPoint showPoint setPoint InitLine SetNodeLine importLine showLine InitCircle InitSetCenterCircle InitSetRadiusCircle showCircle InitSphere InitSetCenterSphere InitSetRadiusSphere showSphere InitTriangle setNodeTriangle importTriangle getCircleTriangle showTriangle GetOuterNormalTriangle InitRectangle createRectangle moveRectangle setNodeRectangle importRectangle getCircleRectangle showRectangle InitTetrahedron getCircleTetrahedron

Derived Types

type, public :: Point_

Components

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

Type-Bound Procedures

procedure, public :: Init => InitPoint
procedure, public :: set => setPoint
procedure, public :: show => showPoint

type, public :: Line_

Components

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

Type-Bound Procedures

procedure, public :: Init => InitLine
procedure, public :: setNode => SetNodeLine
procedure, public :: import => importLine
procedure, public :: show => showLine

type, public :: Circle_

Components

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

Type-Bound Procedures

procedure, public :: Init => InitCircle
procedure, public :: SetCenter => InitSetCenterCircle
procedure, public :: SetRadius => InitSetRadiusCircle
procedure, public :: getArea => getAreaCircle
procedure, public :: show => showCircle

type, public :: Sphere_

Components

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

Type-Bound Procedures

procedure, public :: Init => InitSphere
procedure, public :: SetCenter => InitSetCenterSphere
procedure, public :: SetRadius => InitSetRadiusSphere
procedure, public :: show => showSphere

type, public :: Triangle_

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	NodCoord(:,:)
real(kind=real64),	public,	allocatable	::	OuterNormal(:)
real(kind=real64),	public,	allocatable	::	Center(:)

Type-Bound Procedures

procedure, public :: Init => InitTriangle
procedure, public :: setNode => setNodeTriangle
procedure, public :: import => importTriangle
procedure, public :: getCircle => getCircleTriangle
procedure, public :: getArea => getAreaTriangle
procedure, public :: show => showTriangle
procedure, public :: GetOuterNormal => GetOuterNormalTriangle

type, public :: Rectangle_

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	NodCoord(:,:)

Type-Bound Procedures

procedure, public :: Init => InitRectangle
procedure, public :: create => createRectangle
procedure, public :: move => moveRectangle
procedure, public :: setNode => setNodeRectangle
procedure, public :: import => importRectangle
procedure, public :: getCircle => getCircleRectangle
procedure, public :: getArea => getAreaRectangle
procedure, public :: show => showRectangle
procedure, public :: contact => contactRectangle

type, public :: Tetragon_

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	NodCoord(:,:)

type, public :: Tetrahedron_

Components

Type	Visibility		Name
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
procedure, public :: getCircle => getCircleTetrahedron

type, public :: Octahedron_

Components

Type	Visibility	Attributes		Name		Initial
real(kind=real64),	public,	allocatable	::	NodCoord(:,:)

Functions

public function getAreaCircle(obj) result(area)

Arguments

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

Return Value real(kind=real64)

public function getAreaTriangle(obj) result(area)

Arguments

Type	Intent	Optional	Attributes		Name
class(Triangle_),	intent(in)			::	obj

Return Value real(kind=real64)

public function getAreaRectangle(obj) result(area)

Arguments

Type	Intent	Optional	Attributes		Name
class(Rectangle_),	intent(in)			::	obj

Return Value real(kind=real64)

public function contactRectangle(obj, Rectangle, threshold) result(contact)

Arguments

Type	Intent	Optional		Name
class(Rectangle_),	intent(in)		::	obj
class(Rectangle_),	intent(in)		::	Rectangle
integer(kind=int32),	intent(in),	optional	::	threshold

Return Value logical

Subroutines

public subroutine InitPoint(obj, dim)

Arguments

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

public subroutine showPoint(obj, Name)

Arguments

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

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

Arguments

Type	Intent	Optional		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(:)

public subroutine InitLine(obj, dim)

Arguments

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

public subroutine SetNodeLine(obj, Point, position)

Arguments

Type	Intent		Name
class(Line_),	intent(inout)	::	obj
class(Point_),	intent(in)	::	Point
integer(kind=int32),	intent(in)	::	position

public subroutine importLine(obj, NodCoord)

Arguments

Type	Intent	Optional	Attributes		Name
class(Line_),	intent(inout)			::	obj
integer(kind=int32),	intent(in)			::	NodCoord(:,:)

public subroutine showLine(obj, Name)

Arguments

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

public subroutine InitCircle(obj, dim)

Arguments

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

public subroutine InitSetCenterCircle(obj, point)

Arguments

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

public subroutine InitSetRadiusCircle(obj, radius)

Arguments

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

public subroutine showCircle(obj, Name)

Arguments

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

public subroutine InitSphere(obj, dim)

Arguments

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

public subroutine InitSetCenterSphere(obj, point)

Arguments

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

public subroutine InitSetRadiusSphere(obj, radius)

Arguments

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

public subroutine showSphere(obj, Name)

Arguments

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

public subroutine InitTriangle(obj, dim)

Arguments

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

public subroutine setNodeTriangle(obj, point, order)

Arguments

Type	Intent		Name
class(Triangle_),	intent(inout)	::	obj
class(Point_),	intent(in)	::	point
integer(kind=int32),	intent(in)	::	order

public subroutine importTriangle(obj, NodCoord, FileName)

Arguments

Type	Intent	Optional		Name
class(Triangle_),	intent(inout)		::	obj
integer(kind=int32),	intent(in),	optional	::	NodCoord(:,:)
character(len=*),	intent(in),	optional	::	FileName

public subroutine getCircleTriangle(obj, type_of_circle, circle)

Arguments

Type	Intent		Name
class(Triangle_),	intent(in)	::	obj
character(len=*),	intent(in)	::	type_of_circle
type(Circle_),	intent(inout)	::	circle

public subroutine showTriangle(obj, Name, option)

Arguments

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

public subroutine GetOuterNormalTriangle(obj)

Arguments

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

public subroutine InitRectangle(obj, dim)

Arguments

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

public subroutine createRectangle(obj)

Arguments

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

public subroutine moveRectangle(obj, x, y, z)

Arguments

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

public subroutine setNodeRectangle(obj, point, order)

Arguments

Type	Intent		Name
class(Rectangle_),	intent(inout)	::	obj
class(Point_),	intent(in)	::	point
integer(kind=int32),	intent(in)	::	order

public subroutine importRectangle(obj, NodCoord, FileName)

Arguments

Type	Intent	Optional		Name
class(Rectangle_),	intent(inout)		::	obj
integer(kind=int32),	intent(in),	optional	::	NodCoord(:,:)
character(len=*),	intent(in),	optional	::	FileName

public subroutine getCircleRectangle(obj, type_of_circle, circle)

Arguments

Type	Intent		Name
class(Rectangle_),	intent(in)	::	obj
character(len=*),	intent(in)	::	type_of_circle
type(Circle_),	intent(inout)	::	circle

public subroutine showRectangle(obj, Name, option)

Arguments

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

public subroutine InitTetrahedron(obj, NodCoord)

Arguments

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

public subroutine getCircleTetrahedron(obj)

Arguments

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

GeometryClass Module

Contents

Derived Types

Functions

Subroutines

Uses

Contents

Derived Types

Functions

Subroutines

Derived Types

type, public :: Point_

Components

Type-Bound Procedures

type, public :: Line_

Components

Type-Bound Procedures

type, public :: Circle_

Components

Type-Bound Procedures

type, public :: Sphere_

Components

Type-Bound Procedures

type, public :: Triangle_

Components

Type-Bound Procedures

type, public :: Rectangle_

Components

Type-Bound Procedures

type, public :: Tetragon_

Components

type, public :: Tetrahedron_

Components

Type-Bound Procedures

type, public :: Octahedron_

Components

Functions

public function getAreaCircle(obj) result(area)

Arguments

Return Value real(kind=real64)

public function getAreaTriangle(obj) result(area)

Arguments

Return Value real(kind=real64)

public function getAreaRectangle(obj) result(area)

Arguments

Return Value real(kind=real64)

public function contactRectangle(obj, Rectangle, threshold) result(contact)

Arguments

Return Value logical

Subroutines

public subroutine InitPoint(obj, dim)

Arguments

public subroutine showPoint(obj, Name)

Arguments

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

Arguments

public subroutine InitLine(obj, dim)

Arguments

public subroutine SetNodeLine(obj, Point, position)

Arguments

public subroutine importLine(obj, NodCoord)

Arguments

public subroutine showLine(obj, Name)

Arguments

public subroutine InitCircle(obj, dim)

Arguments

public subroutine InitSetCenterCircle(obj, point)

Arguments

public subroutine InitSetRadiusCircle(obj, radius)

Arguments

public subroutine showCircle(obj, Name)

Arguments

public subroutine InitSphere(obj, dim)

Arguments

public subroutine InitSetCenterSphere(obj, point)

Arguments

public subroutine InitSetRadiusSphere(obj, radius)

Arguments

public subroutine showSphere(obj, Name)

Arguments