workspace_t Derived Type

type, public :: workspace_t

Inherited by

Help

Components

Type	Visibility	Attributes		Name		Initial
real(kind=k),	public,	allocatable, dimension(:,:)	::	a
real(kind=k),	public,	allocatable, dimension(:,:)	::	dcdb
real(kind=k),	public,	allocatable, dimension(:,:,:)	::	dcdw
real(kind=k),	public,	allocatable, dimension(:,:)	::	delta
integer,	public,	kind	::	k	=	default_real
real(kind=k),	public,	allocatable, dimension(:,:)	::	sdb
real(kind=k),	public,	allocatable, dimension(:,:)	::	sdbc
real(kind=k),	public,	allocatable, dimension(:,:,:)	::	sdw
real(kind=k),	public,	allocatable, dimension(:,:,:)	::	sdwc
real(kind=k),	public,	allocatable, dimension(:,:)	::	vdb
real(kind=k),	public,	allocatable, dimension(:,:)	::	vdbc
real(kind=k),	public,	allocatable, dimension(:,:,:)	::	vdw
real(kind=k),	public,	allocatable, dimension(:,:,:)	::	vdwc
real(kind=k),	public,	allocatable, dimension(:,:)	::	z

Constructor

public interface workspace_t

private pure module function default_real_workspace(neural_network) result(workspace)

Arguments

Type	Intent	Optional	Attributes		Name
type(neural_network_t),	intent(in)			::	neural_network

Return Value type(workspace_t)

Type-Bound Procedures

generic, public :: allocate_if_necessary => default_real_allocate

private interface default_real_allocate()

Arguments
None

generic, public :: fully_allocated => default_real_allocated

private interface default_real_allocated()

Arguments
None

procedure, private, non_overridable :: default_real_allocate

interface

private module subroutine default_real_allocate(self, neural_network)

Arguments

Type	Intent	Optional	Attributes		Name
class(workspace_t),	intent(inout)			::	self
type(neural_network_t),	intent(in)			::	neural_network

procedure, private, non_overridable :: default_real_allocated

interface

private pure module function default_real_allocated(self) result(all_allocated)

Arguments

Type	Intent	Optional	Attributes		Name
class(workspace_t),	intent(in)			::	self

Return Value logical