LsystemClass Module



Contents


Derived Types

type, public :: NodeSystem_

Components

TypeVisibility AttributesNameInitial
type(PlantNode_), public, allocatable:: NodeSystem(:)
integer(kind=int32), public :: num_of_node

type, public :: RootSystem_

Components

TypeVisibility AttributesNameInitial
type(PlantRoot_), public, allocatable:: RootSystem(:)
integer(kind=int32), public :: num_of_root

type, public :: Lsystem_

Components

TypeVisibility AttributesNameInitial
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 IntentOptional AttributesName
class(Lsystem_), intent(inout) :: obj
type(Lsystem_), intent(in), optional :: InObj
integer(kind=int32), intent(in), optional :: MaxSize