LsystemClass Module

Uses

Derived Types

type, public :: NodeSystem_

Components

Type	Visibility	Attributes		Name		Initial
type(PlantNode_),	public,	allocatable	::	NodeSystem(:)
integer(kind=int32),	public		::	num_of_node

type, public :: RootSystem_

Components

Type	Visibility	Attributes		Name		Initial
type(PlantRoot_),	public,	allocatable	::	RootSystem(:)
integer(kind=int32),	public		::	num_of_root

type, public :: Lsystem_

Components

Type	Visibility	Attributes		Name		Initial
type(Leaf_),	public,	allocatable	::	LeafList(:)
type(Peti_),	public,	allocatable	::	PetiList(:)
type(Flower_),	public,	allocatable	::	FlowerList(:)
type(Stem_),	public,	allocatable	::	StemList(:)
type(PlantRoot_),	public,	allocatable	::	RootList(:)

Type-Bound Procedures

procedure, public :: Init => InitLsystem

Subroutines

public subroutine InitLsystem(obj, InObj, MaxSize)

Arguments

Type	Intent	Optional	Attributes		Name
class(Lsystem_),	intent(inout)			::	obj
type(Lsystem_),	intent(in),	optional		::	InObj
integer(kind=int32),	intent(in),	optional		::	MaxSize