Defines a registry for storing and requesting temporary fields This can be used when you have a function that will be called often and you don't want to create temporary fields (work arrays) inside it on each call.
◆ expand()
◆ get_expansion_size()
pure integer function scratch_registry::get_expansion_size |
( |
class(scratch_registry_t), intent(in) |
this | ) |
|
|
private |
◆ get_inuse()
logical function scratch_registry::get_inuse |
( |
class(scratch_registry_t), intent(inout), target |
this, |
|
|
integer, intent(inout) |
index |
|
) |
| |
|
private |
◆ get_nfields()
pure integer function scratch_registry::get_nfields |
( |
class(scratch_registry_t), intent(in) |
this | ) |
|
|
private |
◆ get_nfields_inuse()
pure integer function scratch_registry::get_nfields_inuse |
( |
class(scratch_registry_t), intent(in) |
this | ) |
|
|
private |
◆ get_size()
pure integer function scratch_registry::get_size |
( |
class(scratch_registry_t), intent(in) |
this | ) |
|
|
private |
◆ init()
type(scratch_registry_t) function scratch_registry::init |
( |
type(dofmap_t), intent(in), target |
dof, |
|
|
integer, intent(in), optional |
size, |
|
|
integer, intent(in), optional |
expansion_size |
|
) |
| |
|
private |
◆ relinquish_field_multiple()
subroutine scratch_registry::relinquish_field_multiple |
( |
class(scratch_registry_t), intent(inout), target |
this, |
|
|
integer, dimension(:), intent(inout) |
indices |
|
) |
| |
|
private |
◆ relinquish_field_single()
subroutine scratch_registry::relinquish_field_single |
( |
class(scratch_registry_t), intent(inout), target |
this, |
|
|
integer, intent(inout) |
index |
|
) |
| |
|
private |
◆ request_field()
subroutine scratch_registry::request_field |
( |
class(scratch_registry_t), intent(inout), target |
this, |
|
|
type(field_t), intent(inout), pointer |
f, |
|
|
integer, intent(inout) |
index |
|
) |
| |
|
private |
- Parameters
-
[in,out] | index | The index of the field in the inuse array |
Definition at line 202 of file scratch_registry.f90.
◆ scratch_registry_free()
subroutine scratch_registry::scratch_registry_free |
( |
class(scratch_registry_t), intent(inout) |
this | ) |
|
|
private |
◆ neko_scratch_registry