set_init Subroutine

public subroutine set_init(self, field, field_func)

Type Bound

Arguments

Type

Intent

Optional

Attributes

Name

class(base_case_t)

::

self

class(field_t),

intent(inout)

::

field

public pure function field_func(coords) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	coords(3)

Return Value real(kind=dp)