Flower_ Derived Type

type, public :: Flower_

Contents

Variables

FEMDomain LeafSurfaceNode2D Thickness length width center Division pStem

Type-Bound Procedures

Init

Components

Type	Visibility	Attributes		Name		Initial
type(FEMDomain_),	public		::	FEMDomain
real(kind=real64),	public,	allocatable	::	LeafSurfaceNode2D(:,:)
real(kind=real64),	public		::	Thickness
real(kind=real64),	public		::	length
real(kind=real64),	public		::	width
real(kind=real64),	public		::	center(3)
integer(kind=int32),	public		::	Division
type(Stem_),	public,	pointer	::	pStem

Type-Bound Procedures

procedure, public :: Init => initflower

• public subroutine initflower(obj, Thickness, length, width)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(Flower_),	intent(inout)			::	obj
  real(kind=real64),		optional		::	Thickness
  real(kind=real64),		optional		::	length
  real(kind=real64),		optional		::	width