PineClass Module

Uses

Derived Types

type, public :: Pine_

Components

Type	Visibility	Attributes		Name		Initial
type(Stem_),	public,	allocatable	::	stem(:)
real(kind=real64),	public		::	mainstem_length
real(kind=real64),	public,	allocatable	::	mainstem_diameters(:)
real(kind=real64),	public,	allocatable	::	mainstem_diameters_h(:)
integer(kind=int32),	public		::	divisions(1:2)
real(kind=real64),	public		::	Branch_heights(1:2)
integer(kind=int32),	public		::	NumberOfBranch
real(kind=real64),	public		::	DiameterOfBranch_ave
real(kind=real64),	public		::	DiameterOfBranch_sig
real(kind=real64),	public		::	AngleOfBranch_ave
real(kind=real64),	public		::	AngleOfBranch_sig

Type-Bound Procedures

procedure, public :: init => initPine

Functions

public function linear_interpolate_pine(x, f, x0) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	x(:)
real(kind=real64),	intent(in)			::	f(:)
real(kind=real64),	intent(in)			::	x0

Return Value real(kind=real64)

Subroutines

public subroutine initPine(this, config, debug)

Arguments

Type	Intent	Optional	Attributes		Name
class(Pine_),	intent(inout)			::	this
character(len=*),	intent(in)			::	config
logical,	intent(in),	optional		::	debug