3 use iso_c_binding,
only : c_ptr
22 generic :: get => get_by_index, get_by_name
28 generic :: assign => assign_to_ptr, assign_to_field_ptr
58 integer,
intent(in) :: size
62 allocate(this%items(size))
77 integer,
intent(in) :: i
78 f => this%items(i)%ptr
86 character(len=*),
intent(in) :: name
90 if (this%name(i) .eq. trim(name))
then
91 f => this%items(i)%ptr
96 call neko_error(
"No field with name " // trim(name) //
" found in list")
103 class(
field_t),
intent(in),
target :: f
107 len =
size(this%items)
110 tmp(1:len) = this%items
111 call move_alloc(tmp, this%items)
112 this%items(len+1)%ptr => f
119 integer :: i, n_fields
121 if (
allocated(this%items))
then
122 n_fields = this%size()
124 if (
associated(this%items(i)%ptr))
then
125 call this%items(i)%ptr%free()
127 nullify(this%items(i)%ptr)
129 deallocate(this%items)
138 integer,
intent(in) :: i
141 ptr = this%items(i)%ptr%x_d
146 real(kind=
rp),
pointer :: x(:,:,:,:)
147 integer,
intent(in) :: i
148 x => this%items(i)%ptr%x
155 integer,
intent(in) :: i
158 size = this%items(i)%ptr%size()
167 integer,
intent(in) :: i
168 type(
field_t),
pointer,
intent(in) :: ptr
170 this%items(i)%ptr => ptr
178 integer,
intent(in) :: i
181 this%items(i)%ptr => ptr%ptr
189 integer,
intent(in) :: i
190 type(
field_t),
target,
intent(in) :: fld
192 this%items(i)%ptr => fld
199 integer,
intent(in) :: i
202 result => this%items(i)%ptr%dof
209 integer,
intent(in) :: i
210 type(
space_t),
pointer :: result
212 result => this%items(i)%ptr%Xh
219 integer,
intent(in) :: i
220 type(
mesh_t),
pointer :: result
222 result => this%items(i)%ptr%msh
229 integer,
intent(in) :: i
232 result = this%items(i)%ptr%internal_dofmap
239 integer,
intent(in) :: i
240 character(len=80) :: result
242 result = this%items(i)%ptr%name
Defines a mapping of the degrees of freedom.
type(dofmap_t) function, pointer field_list_dof(this, i)
Get the the dofmap for item i.
subroutine field_list_init(this, size)
Constructor. Just allocates the array.
type(space_t) function, pointer field_list_space(this, i)
Get the the space for item i.
subroutine field_list_assign_to_ptr(this, i, ptr)
Point item at a given index.
pure integer function field_list_size(this)
Get number of items in the list.
subroutine field_list_assign_to_field_ptr(this, i, ptr)
Point item at a given index.
integer function field_list_item_size(this, i)
Get the size of the dofmap for item i.
character(len=80) function field_list_name(this, i)
Get the name for an item in the list.
logical function field_list_internal_dofmap(this, i)
Whether the dofmap is internal for item i.
real(kind=rp) function, dimension(:,:,:,:), pointer field_list_x(this, i)
type(field_t) function, pointer field_list_get_by_index(this, i)
Get an item pointer by array index.
type(mesh_t) function, pointer field_list_msh(this, i)
Get the the mesh for item i.
subroutine field_list_assign_to_field(this, i, fld)
Point item at a given index.
type(c_ptr) function field_list_x_d(this, i)
Get device pointer for a given index.
subroutine field_list_free(this)
Destructor.
subroutine field_list_append(this, f)
Append a field to the list.
type(field_t) function, pointer field_list_get_by_name(this, name)
Get an item pointer by array index.
integer, parameter, public rp
Global precision used in computations.
Defines a function space.
field_ptr_t, To easily obtain a pointer to a field
field_list_t, To be able to group fields together
The function space for the SEM solution fields.