PlantNode_ Derived Type

type, public :: PlantNode_

Contents

Variables

crop_name Reproductive Leaf Peti Flower Pod Stem Root

Type-Bound Procedures

init export

Components

Type	Visibility	Attributes		Name		Initial
character(len=200),	public		::	crop_name
logical,	public		::	Reproductive
type(Leaf_),	public,	allocatable	::	Leaf(:)
type(Peti_),	public,	allocatable	::	Peti(:)
type(Flower_),	public,	allocatable	::	Flower(:)
type(Pod_),	public,	allocatable	::	Pod(:)
type(Stem_),	public,	allocatable	::	Stem(:)
type(PlantRoot_),	public,	allocatable	::	Root(:)

Type-Bound Procedures

procedure, public :: init => initNode

• public subroutine initNode(obj, regacy, PlantName, Stage, LeafThickness, Leaflength, Leafwidth, LeafShapeFactor, MaxLeafThickness, MaxLeaflength, MaxLeafwidth, PetiThickness, Petilength, Petiwidth, PetiShapeFactor, MaxPetiThickness, MaxPetilength, MaxPetiwidth, StemThickness, Stemlength, Stemwidth, StemShapeFactor, MaxStemThickness, MaxStemlength, MaxStemwidth, location)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(PlantNode_),	intent(inout),		target	::	obj
  logical,	intent(in),	optional		::	regacy
  character(len=*),	intent(in)			::	PlantName
  character(len=2),	intent(in)			::	Stage
  real(kind=real64),	intent(in),	optional		::	LeafThickness
  real(kind=real64),	intent(in),	optional		::	Leaflength
  real(kind=real64),	intent(in),	optional		::	Leafwidth
  real(kind=real64),	intent(in),	optional		::	LeafShapeFactor
  real(kind=real64),	intent(in),	optional		::	MaxLeafThickness
  real(kind=real64),	intent(in),	optional		::	MaxLeaflength
  real(kind=real64),	intent(in),	optional		::	MaxLeafwidth
  real(kind=real64),	intent(in),	optional		::	PetiThickness
  real(kind=real64),	intent(in),	optional		::	Petilength
  real(kind=real64),	intent(in),	optional		::	Petiwidth
  real(kind=real64),	intent(in),	optional		::	PetiShapeFactor
  real(kind=real64),	intent(in),	optional		::	MaxPetiThickness
  real(kind=real64),	intent(in),	optional		::	MaxPetilength
  real(kind=real64),	intent(in),	optional		::	MaxPetiwidth
  real(kind=real64),	intent(in),	optional		::	StemThickness
  real(kind=real64),	intent(in),	optional		::	Stemlength
  real(kind=real64),	intent(in),	optional		::	Stemwidth
  real(kind=real64),	intent(in),	optional		::	StemShapeFactor
  real(kind=real64),	intent(in),	optional		::	MaxStemThickness
  real(kind=real64),	intent(in),	optional		::	MaxStemlength
  real(kind=real64),	intent(in),	optional		::	MaxStemwidth
  real(kind=real64),	intent(in),	optional		::	location(3)

procedure, public :: export => exportNode

• public subroutine exportNode(obj, FileName, objID)

  Arguments

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