scratch_registry::scratch_registry_t Type Reference

Collaboration diagram for scratch_registry::scratch_registry_t:

Public Member Functions
procedure, pass(this)	init (this, size, expansion_size, dof)
	Constructor.
procedure, pass(this)	free (this)
	Destructor.
procedure, pass(this)	set_dofmap (this, dof)
	Assign a dofmap to the scratch registry.
procedure, pass(this)	get_n_entries (this)
	Getter for n_entries.
procedure, pass(this)	get_n_inuse (this)
	Getter for n_inuse.
procedure, pass(this)	get_expansion_size (this)
	Getter for expansion_size.
procedure, pass(this)	get_size (this)
	Return size of allocated fields.
procedure, pass(this)	get_inuse (this, index)
	Get value of inuse for a given index.
procedure, pass(this)	request_host_array (this, v, index, n, clear)
	Get a new scratch host array.
procedure, pass(this)	relinquish_host_array_single (this, index)
	Relinquish the use of a host_array in the registry.
procedure, pass(this)	relinquish_host_array_multiple (this, indices)
	Relinquish the use of multiple host_arrays in the registry.
generic	relinquish_host_array (this, index)
	Free a host array for later reuse.
generic	relinquish_host_array (this, indices)
	Free a host array for later reuse.
procedure, pass(this)	request_device_array (this, v, index, n, clear)
	Get a new scratch device array.
procedure, pass(this)	relinquish_device_array_single (this, index)
	Relinquish the use of a device_array in the registry.
procedure, pass(this)	relinquish_device_array_multiple (this, indices)
	Relinquish the use of multiple device_arrays in the registry.
generic	relinquish_device_array (this, index)
	Free a device array for later reuse.
generic	relinquish_device_array (this, indices)
	Free a device array for later reuse.
procedure, pass(this)	request_vector (this, v, index, n, clear)
	Get a new scratch vector.
procedure, pass(this)	relinquish_vector_single (this, index)
	Relinquish the use of a vector in the registry.
procedure, pass(this)	relinquish_vector_multiple (this, indices)
	Relinquish the use of multiple vectors in the registry.
generic	relinquish_vector (this, index)
	Free a vector for later reuse.
generic	relinquish_vector (this, indices)
	Free a vector for later reuse.
procedure, pass(this)	request_matrix (this, m, index, nrows, ncols, clear)
	Get a new scratch matrix.
procedure, pass(this)	relinquish_matrix_single (this, index)
	Relinquish the use of a matrix in the registry.
procedure, pass(this)	relinquish_matrix_multiple (this, indices)
	Relinquish the use of multiple matrices in the registry.
generic	relinquish_matrix (this, index)
	Free a matrix for later reuse.
generic	relinquish_matrix (this, indices)
	Free a matrix for later reuse.
procedure, pass(this)	request_tensor3 (this, t, index, n, m, l, clear)
	Get a new scratch tensor3.
procedure, pass(this)	relinquish_tensor3_single (this, index)
	Relinquish the use of a tensor3 in the registry.
procedure, pass(this)	relinquish_tensor3_multiple (this, indices)
	Relinquish the use of multiple tensor3s in the registry.
generic	relinquish_tensor3 (this, index)
	Free a tensor3 for later reuse.
generic	relinquish_tensor3 (this, indices)
	Free a tensor3 for later reuse.
procedure, pass(this)	request_tensor4 (this, t, index, n, m, l, k, clear)
	Get a new scratch tensor4.
procedure, pass(this)	relinquish_tensor4_single (this, index)
	Relinquish the use of a tensor4 in the registry.
procedure, pass(this)	relinquish_tensor4_multiple (this, indices)
	Relinquish the use of multiple tensor4s in the registry.
generic	relinquish_tensor4 (this, index)
	Free a tensor4 for later reuse.
generic	relinquish_tensor4 (this, indices)
	Free a tensor4 for later reuse.
procedure, pass(this)	request_field (this, f, index, clear)
	Get a new scratch field.
procedure, pass(this)	relinquish_field_single (this, index)
	Relinquish the use of a field in the registry.
procedure, pass(this)	relinquish_field_multiple (this, indices)
	Relinquish the use of multiple fields in the registry.
generic	relinquish_field (this, index)
	Free a field for later reuse.
generic	relinquish_field (this, indices)
	Free a field for later reuse.
generic	request (this, v, index, n, clear)
	Generic request procedure.
generic	request (this, v, index, n, clear)
	Generic request procedure.
generic	request (this, v, index, n, clear)
	Generic request procedure.
generic	request (this, m, index, nrows, ncols, clear)
	Generic request procedure.
generic	request (this, t, index, n, m, l, clear)
	Generic request procedure.
generic	request (this, t, index, n, m, l, k, clear)
	Generic request procedure.
generic	request (this, f, index, clear)
	Generic request procedure.
procedure, pass(this)	relinquish_single (this, index)
	Relinquish the use of an object in the registry.
procedure, pass(this)	relinquish_multiple (this, indices)
	Relinquish the use of multiple objects in the registry.
generic	relinquish (this, index)
	Generic relinquish procedure.
generic	relinquish (this, indices)
	Generic relinquish procedure.

Public Attributes
type(dofmap_t), pointer	dof => null()
	Dofmap.

Private Member Functions
procedure, pass(this), private	expand (this)

Private Attributes
type(registry_entry_t), dimension(:), allocatable, private	entries
	List of scratch objects.
logical, dimension(:), allocatable, private	inuse
	Tracks which objects are used.
integer, private	n_entries = 0
	Number of registered objects.
integer, private	n_inuse = 0
	Number of objects in use.
integer, private	expansion_size = 10
	The size the objects array is increased by upon reallocation.

Detailed Description

Definition at line 59 of file scratch_registry.f90.

Member Function/Subroutine Documentation

expand()

procedure, pass(this), private scratch_registry::scratch_registry_t::expand ( class(scratch_registry_t), intent(inout)  this )

private

Definition at line 73 of file scratch_registry.f90.

free()

procedure, pass(this) scratch_registry::scratch_registry_t::free

(

class(scratch_registry_t), intent(inout)

this

)

Definition at line 77 of file scratch_registry.f90.

get_expansion_size()

procedure, pass(this) scratch_registry::scratch_registry_t::get_expansion_size

(

class(scratch_registry_t), intent(in)

this

)

Definition at line 85 of file scratch_registry.f90.

get_inuse()

procedure, pass(this) scratch_registry::scratch_registry_t::get_inuse	(	class(scratch_registry_t), intent(in), target	this,
		integer, intent(in)	index
	)

Definition at line 89 of file scratch_registry.f90.

get_n_entries()

procedure, pass(this) scratch_registry::scratch_registry_t::get_n_entries

(

class(scratch_registry_t), intent(in)

this

)

Definition at line 81 of file scratch_registry.f90.

get_n_inuse()

procedure, pass(this) scratch_registry::scratch_registry_t::get_n_inuse

(

class(scratch_registry_t), intent(in)

this

)

Definition at line 83 of file scratch_registry.f90.

get_size()

procedure, pass(this) scratch_registry::scratch_registry_t::get_size

(

class(scratch_registry_t), intent(in)

this

)

Definition at line 87 of file scratch_registry.f90.

init()

procedure, pass(this) scratch_registry::scratch_registry_t::init	(	class(scratch_registry_t), intent(inout)	this,
		integer, intent(in), optional	size,
		integer, intent(in), optional	expansion_size,
		type(dofmap_t), intent(in), optional, target	dof
	)

Parameters

size	Initial size of the registry
expansion_size	Size to expand the registry by when needed
dof	Dofmap to associate with the scratch registry

Note

If no DOF map is provided here, it must be set later using scratch_registry_t::set_dofmap before requesting fields.

Definition at line 75 of file scratch_registry.f90.

relinquish() [1/2]

generic scratch_registry::scratch_registry_t::relinquish	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the object to free

Definition at line 154 of file scratch_registry.f90.

Here is the call graph for this function:

relinquish() [2/2]

generic scratch_registry::scratch_registry_t::relinquish	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the objects to free

Definition at line 154 of file scratch_registry.f90.

relinquish_device_array() [1/2]

generic scratch_registry::scratch_registry_t::relinquish_device_array	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the device_array to free

Definition at line 104 of file scratch_registry.f90.

Here is the call graph for this function:

relinquish_device_array() [2/2]

generic scratch_registry::scratch_registry_t::relinquish_device_array	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the device_arrays to free

Definition at line 104 of file scratch_registry.f90.

relinquish_device_array_multiple()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_device_array_multiple	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the device_arrays to free

Definition at line 102 of file scratch_registry.f90.

relinquish_device_array_single()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_device_array_single	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the device_array to free

Definition at line 101 of file scratch_registry.f90.

relinquish_field() [1/2]

generic scratch_registry::scratch_registry_t::relinquish_field	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the field to free

Definition at line 144 of file scratch_registry.f90.

Here is the call graph for this function:

relinquish_field() [2/2]

generic scratch_registry::scratch_registry_t::relinquish_field	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the fields to free

Definition at line 144 of file scratch_registry.f90.

relinquish_field_multiple()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_field_multiple	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the fields to free

Definition at line 142 of file scratch_registry.f90.

relinquish_field_single()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_field_single	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the field to free

Definition at line 141 of file scratch_registry.f90.

relinquish_host_array() [1/2]

generic scratch_registry::scratch_registry_t::relinquish_host_array	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the host_array to free

Definition at line 96 of file scratch_registry.f90.

Here is the call graph for this function:

relinquish_host_array() [2/2]

generic scratch_registry::scratch_registry_t::relinquish_host_array	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the host_arrays to free

Definition at line 96 of file scratch_registry.f90.

relinquish_host_array_multiple()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_host_array_multiple	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the host_arrays to free

Definition at line 94 of file scratch_registry.f90.

relinquish_host_array_single()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_host_array_single	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the host_array to free

Definition at line 93 of file scratch_registry.f90.

relinquish_matrix() [1/2]

generic scratch_registry::scratch_registry_t::relinquish_matrix	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the matrix to free

Definition at line 120 of file scratch_registry.f90.

Here is the call graph for this function:

relinquish_matrix() [2/2]

generic scratch_registry::scratch_registry_t::relinquish_matrix	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the matrices to free

Definition at line 120 of file scratch_registry.f90.

relinquish_matrix_multiple()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_matrix_multiple	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the matrices to free

Definition at line 118 of file scratch_registry.f90.

relinquish_matrix_single()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_matrix_single	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the matrix to free

Definition at line 117 of file scratch_registry.f90.

relinquish_multiple()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_multiple	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the objects to free

Definition at line 152 of file scratch_registry.f90.

relinquish_single()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_single	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the object to free

Definition at line 151 of file scratch_registry.f90.

relinquish_tensor3() [1/2]

generic scratch_registry::scratch_registry_t::relinquish_tensor3	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the tensor3 to free

Definition at line 128 of file scratch_registry.f90.

Here is the call graph for this function:

relinquish_tensor3() [2/2]

generic scratch_registry::scratch_registry_t::relinquish_tensor3	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the tensor3s to free

Definition at line 128 of file scratch_registry.f90.

relinquish_tensor3_multiple()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_tensor3_multiple	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the tensor3s to free

Definition at line 126 of file scratch_registry.f90.

relinquish_tensor3_single()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_tensor3_single	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the tensor3 to free

Definition at line 125 of file scratch_registry.f90.

relinquish_tensor4() [1/2]

generic scratch_registry::scratch_registry_t::relinquish_tensor4	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the tensor4 to free

Definition at line 136 of file scratch_registry.f90.

Here is the call graph for this function:

relinquish_tensor4() [2/2]

generic scratch_registry::scratch_registry_t::relinquish_tensor4	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the tensor4s to free

Definition at line 136 of file scratch_registry.f90.

relinquish_tensor4_multiple()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_tensor4_multiple	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the tensor4s to free

Definition at line 134 of file scratch_registry.f90.

relinquish_tensor4_single()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_tensor4_single	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the tensor4 to free

Definition at line 133 of file scratch_registry.f90.

relinquish_vector() [1/2]

generic scratch_registry::scratch_registry_t::relinquish_vector	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the vector to free

Definition at line 112 of file scratch_registry.f90.

Here is the call graph for this function:

relinquish_vector() [2/2]

generic scratch_registry::scratch_registry_t::relinquish_vector	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the vectors to free

Definition at line 112 of file scratch_registry.f90.

relinquish_vector_multiple()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_vector_multiple	(	class(scratch_registry_t), intent(inout), target	this,
		integer, dimension(:), intent(inout)	indices
	)

Parameters

indices

The indices of the vectors to free

Definition at line 110 of file scratch_registry.f90.

relinquish_vector_single()

procedure, pass(this) scratch_registry::scratch_registry_t::relinquish_vector_single	(	class(scratch_registry_t), intent(inout), target	this,
		integer, intent(inout)	index
	)

Parameters

index

The index of the vector to free

Definition at line 109 of file scratch_registry.f90.

request() [1/7]

generic scratch_registry::scratch_registry_t::request	(	class(scratch_registry_t), intent(inout), target	this,
		type(field_t), intent(inout), pointer	f,
		integer, intent(inout)	index,
		logical, intent(in)	clear
	)

Parameters

f	Pointer to the requested field.
index	Index of the field in the registry (for relinquishing later).
clear	If true, the field values are set to zero upon request.

Definition at line 148 of file scratch_registry.f90.

request() [2/7]

generic scratch_registry::scratch_registry_t::request	(	class(scratch_registry_t), intent(inout), target	this,
		type(matrix_t), intent(inout), pointer	m,
		integer, intent(inout)	index,
		integer, intent(in)	nrows,
		integer, intent(in)	ncols,
		logical, intent(in)	clear
	)

Parameters

m	Pointer to the requested matrix.
index	Index of the matrix in the registry (for relinquishing later).
nrows	Number of rows of the requested matrix.
ncols	Number of columns of the requested matrix.
clear	If true, the matrix values are set to zero upon request.

Definition at line 148 of file scratch_registry.f90.

request() [3/7]

generic scratch_registry::scratch_registry_t::request	(	class(scratch_registry_t), intent(inout), target	this,
		type(tensor3_t), intent(inout), pointer	t,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		integer, intent(in)	m,
		integer, intent(in)	l,
		logical, intent(in)	clear
	)

Parameters

t	Pointer to the requested tensor3.
index	Index of the tensor3 in the registry (for relinquishing later).
n	Number of rows of the requested tensor3.
m	Number of columns of the requested tensor3.
l	Number of layers of the requested tensor3.
clear	If true, the tensor3 values are set to zero upon request.

Definition at line 148 of file scratch_registry.f90.

request() [4/7]

generic scratch_registry::scratch_registry_t::request	(	class(scratch_registry_t), intent(inout), target	this,
		type(tensor4_t), intent(inout), pointer	t,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		integer, intent(in)	m,
		integer, intent(in)	l,
		integer, intent(in)	k,
		logical, intent(in)	clear
	)

Parameters

t	Pointer to the requested tensor4.
index	Index of the tensor4 in the registry (for relinquishing later).
n	Number of rows of the requested tensor4.
m	Number of columns of the requested tensor4.
l	Number of layers of the requested tensor4.
k	Number of slices of the requested tensor4.
clear	If true, the tensor4 values are set to zero upon request.

Definition at line 148 of file scratch_registry.f90.

request() [5/7]

generic scratch_registry::scratch_registry_t::request	(	class(scratch_registry_t), intent(inout), target	this,
		type(host_array_t), intent(inout), pointer	v,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		logical, intent(in)	clear
	)

Parameters

v	Pointer to the requested host_array.
index	Index of the host array in the registry (for relinquishing later).
n	Size of the requested host_array.
clear	If true, the host_array values are set to zero upon request.

Definition at line 148 of file scratch_registry.f90.

Here is the call graph for this function:

request() [6/7]

generic scratch_registry::scratch_registry_t::request	(	class(scratch_registry_t), intent(inout), target	this,
		type(device_array_t), intent(inout), pointer	v,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		logical, intent(in)	clear
	)

Parameters

v	Pointer to the requested device_array.
index	Index of the device_array in the registry (for relinquishing later).
n	Size of the requested device_array.
clear	If true, the device_array values are set to zero upon request.

Definition at line 148 of file scratch_registry.f90.

request() [7/7]

generic scratch_registry::scratch_registry_t::request	(	class(scratch_registry_t), intent(inout), target	this,
		type(vector_t), intent(inout), pointer	v,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		logical, intent(in)	clear
	)

Parameters

v	Pointer to the requested vector.
index	Index of the vector in the registry (for relinquishing later).
n	Size of the requested vector.
clear	If true, the vector values are set to zero upon request.

Definition at line 148 of file scratch_registry.f90.

request_device_array()

procedure, pass(this) scratch_registry::scratch_registry_t::request_device_array	(	class(scratch_registry_t), intent(inout), target	this,
		type(device_array_t), intent(inout), pointer	v,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		logical, intent(in)	clear
	)

Parameters

v	Pointer to the requested device_array.
index	Index of the device_array in the registry (for relinquishing later).
n	Size of the requested device_array.
clear	If true, the device_array values are set to zero upon request.

Definition at line 100 of file scratch_registry.f90.

request_field()

procedure, pass(this) scratch_registry::scratch_registry_t::request_field	(	class(scratch_registry_t), intent(inout), target	this,
		type(field_t), intent(inout), pointer	f,
		integer, intent(inout)	index,
		logical, intent(in)	clear
	)

Parameters

f	Pointer to the requested field.
index	Index of the field in the registry (for relinquishing later).
clear	If true, the field values are set to zero upon request.

Definition at line 140 of file scratch_registry.f90.

request_host_array()

procedure, pass(this) scratch_registry::scratch_registry_t::request_host_array	(	class(scratch_registry_t), intent(inout), target	this,
		type(host_array_t), intent(inout), pointer	v,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		logical, intent(in)	clear
	)

Parameters

v	Pointer to the requested host_array.
index	Index of the host array in the registry (for relinquishing later).
n	Size of the requested host_array.
clear	If true, the host_array values are set to zero upon request.

Definition at line 92 of file scratch_registry.f90.

request_matrix()

procedure, pass(this) scratch_registry::scratch_registry_t::request_matrix	(	class(scratch_registry_t), intent(inout), target	this,
		type(matrix_t), intent(inout), pointer	m,
		integer, intent(inout)	index,
		integer, intent(in)	nrows,
		integer, intent(in)	ncols,
		logical, intent(in)	clear
	)

Parameters

m	Pointer to the requested matrix.
index	Index of the matrix in the registry (for relinquishing later).
nrows	Number of rows of the requested matrix.
ncols	Number of columns of the requested matrix.
clear	If true, the matrix values are set to zero upon request.

Definition at line 116 of file scratch_registry.f90.

request_tensor3()

procedure, pass(this) scratch_registry::scratch_registry_t::request_tensor3	(	class(scratch_registry_t), intent(inout), target	this,
		type(tensor3_t), intent(inout), pointer	t,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		integer, intent(in)	m,
		integer, intent(in)	l,
		logical, intent(in)	clear
	)

Parameters

t	Pointer to the requested tensor3.
index	Index of the tensor3 in the registry (for relinquishing later).
n	Number of rows of the requested tensor3.
m	Number of columns of the requested tensor3.
l	Number of layers of the requested tensor3.
clear	If true, the tensor3 values are set to zero upon request.

Definition at line 124 of file scratch_registry.f90.

request_tensor4()

procedure, pass(this) scratch_registry::scratch_registry_t::request_tensor4	(	class(scratch_registry_t), intent(inout), target	this,
		type(tensor4_t), intent(inout), pointer	t,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		integer, intent(in)	m,
		integer, intent(in)	l,
		integer, intent(in)	k,
		logical, intent(in)	clear
	)

Parameters

t	Pointer to the requested tensor4.
index	Index of the tensor4 in the registry (for relinquishing later).
n	Number of rows of the requested tensor4.
m	Number of columns of the requested tensor4.
l	Number of layers of the requested tensor4.
k	Number of slices of the requested tensor4.
clear	If true, the tensor4 values are set to zero upon request.

Definition at line 132 of file scratch_registry.f90.

request_vector()

procedure, pass(this) scratch_registry::scratch_registry_t::request_vector	(	class(scratch_registry_t), intent(inout), target	this,
		type(vector_t), intent(inout), pointer	v,
		integer, intent(inout)	index,
		integer, intent(in)	n,
		logical, intent(in)	clear
	)

Parameters

v	Pointer to the requested vector.
index	Index of the vector in the registry (for relinquishing later).
n	Size of the requested vector.
clear	If true, the vector values are set to zero upon request.

Definition at line 108 of file scratch_registry.f90.

set_dofmap()

procedure, pass(this) scratch_registry::scratch_registry_t::set_dofmap	(	class(scratch_registry_t), intent(inout)	this,
		type(dofmap_t), intent(in), target	dof
	)

Parameters

dof	Dofmap to assign

Note

First check if a dofmap is already assigned, and throw an error, unless it's the same dofmap.

Definition at line 79 of file scratch_registry.f90.

Member Data Documentation

dof

type(dofmap_t), pointer scratch_registry::scratch_registry_t::dof => null()

Definition at line 71 of file scratch_registry.f90.

entries

type(registry_entry_t), dimension(:), allocatable, private scratch_registry::scratch_registry_t::entries

private

Definition at line 61 of file scratch_registry.f90.

expansion_size

integer, private scratch_registry::scratch_registry_t::expansion_size = 10

private

Definition at line 69 of file scratch_registry.f90.

inuse

logical, dimension(:), allocatable, private scratch_registry::scratch_registry_t::inuse

private

Definition at line 63 of file scratch_registry.f90.

n_entries

integer, private scratch_registry::scratch_registry_t::n_entries = 0

private

Definition at line 65 of file scratch_registry.f90.

n_inuse

integer, private scratch_registry::scratch_registry_t::n_inuse = 0

private

Definition at line 67 of file scratch_registry.f90.

---

The documentation for this type was generated from the following file:

• /home/runner/work/neko/neko/src/registries/scratch_registry.f90