Boring_ Derived Type

type, public :: Boring_

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	Project
character(len=:),	public,	allocatable	::	Name
character(len=:),	public,	allocatable	::	URL
real(kind=real64),	public		::	position(1:3)	=	0.0d0
real(kind=real64),	public		::	TP
real(kind=real64),	public		::	Length
integer(kind=int32),	public		::	SamplingPoint	=	0
real(kind=real64),	public,	allocatable	::	Elevation(:)
real(kind=real64),	public		::	x	=	0.0d0
real(kind=real64),	public		::	y	=	0.0d0
real(kind=real64),	public,	allocatable	::	Depth(:)
real(kind=real64),	public,	allocatable	::	PTest_Depth(:)
real(kind=real64),	public,	allocatable	::	PTest_NValue(:)
integer(kind=int32),	public,	allocatable	::	SoilType(:)
integer(kind=int32),	public,	allocatable	::	Color(:)

Type-Bound Procedures

procedure, public :: create => createBoring

public subroutine createBoring(obj, SamplingPoint)

Arguments

Type	Intent	Optional	Attributes		Name
class(Boring_),	intent(inout)			::	obj
integer(kind=int32),	intent(in)			::	SamplingPoint

procedure, public :: example => exampleBoring

public subroutine exampleBoring(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(Boring_),	intent(inout)			::	obj

procedure, public :: setN => setNBoring

public subroutine setNBoring(obj, depth, Nvalue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Boring_),	intent(inout)			::	obj
real(kind=real64),	intent(in)			::	depth
real(kind=real64),	intent(in)			::	Nvalue

procedure, public :: setLocation => setLocationBoring

public subroutine setLocationBoring(obj, x, y)

Arguments

Type	Intent	Optional	Attributes		Name
class(Boring_),	intent(inout)			::	obj
real(kind=real64),	intent(in),	optional		::	x
real(kind=real64),	intent(in),	optional		::	y

procedure, public :: getN => getNBoring

public pure function getNBoring(obj, depth, elevation) result(Nval)

Arguments

Type	Intent	Optional	Attributes		Name
class(Boring_),	intent(in)			::	obj
real(kind=real64),	intent(in),	optional		::	depth
real(kind=real64),	intent(in),	optional		::	elevation

Return Value real(kind=real64)

procedure, public :: show => showBoring

public subroutine showBoring(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(Boring_),	intent(in)			::	obj