Peti_ Derived Type

type, public :: Peti_

Contents

Variables

FEMDomain Thickness length width MaxThickness Maxlength Maxwidth center_bottom center_top radius_bottom radius_top outer_normal_bottom outer_normal_top Division pStem

Type-Bound Procedures

Init export

Components

Type	Visibility	Attributes		Name		Initial
type(FEMDomain_),	public		::	FEMDomain
real(kind=real64),	public		::	Thickness
real(kind=real64),	public		::	length
real(kind=real64),	public		::	width
real(kind=real64),	public		::	MaxThickness
real(kind=real64),	public		::	Maxlength
real(kind=real64),	public		::	Maxwidth
real(kind=real64),	public		::	center_bottom(3)
real(kind=real64),	public		::	center_top(3)
real(kind=real64),	public		::	radius_bottom(3)
real(kind=real64),	public		::	radius_top(3)
real(kind=real64),	public		::	outer_normal_bottom(3)
real(kind=real64),	public		::	outer_normal_top(3)
integer(kind=int32),	public		::	Division
type(Stem_),	public,	pointer	::	pStem

Type-Bound Procedures

procedure, public :: Init => initPeti

public subroutine initPeti(obj, Thickness, length, width, MaxThickness, Maxlength, Maxwidth, rotx, roty, rotz, location)

Arguments

Type	Intent	Optional	Attributes		Name
class(Peti_),	intent(inout)			::	obj
real(kind=real64),	intent(in),	optional		::	Thickness
real(kind=real64),	intent(in),	optional		::	length
real(kind=real64),	intent(in),	optional		::	width
real(kind=real64),	intent(in),	optional		::	MaxThickness
real(kind=real64),	intent(in),	optional		::	Maxlength
real(kind=real64),	intent(in),	optional		::	Maxwidth
real(kind=real64),	intent(in),	optional		::	rotx
real(kind=real64),	intent(in),	optional		::	roty
real(kind=real64),	intent(in),	optional		::	rotz
real(kind=real64),	intent(in),	optional		::	location(3)

procedure, public :: export => exportPeti

public subroutine exportPeti(obj, FileName, PetiID)

Arguments

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