44 character(len=20) :: POINTZ_KNOWN_TYPES(3) = [character(len=20) :: &
56 module subroutine point_zone_factory(object, json, dof)
57 class(point_zone_t),
allocatable,
intent(inout) :: object
58 type(json_file),
intent(inout) :: json
59 type(dofmap_t),
intent(inout),
optional :: dof
60 character(len=:),
allocatable :: type_name
61 character(len=:),
allocatable :: type_string
63 call json_get(json,
"geometry", type_name)
65 if (trim(type_name) .eq.
"box")
then
67 else if (trim(type_name) .eq.
"sphere")
then
69 else if (trim(type_name) .eq.
"cylinder")
then
73 new_line(
'A') //
"- ", .true.)
75 // trim(type_name) //
". Known types are: " &
79 if (
present(dof))
then
80 call object%init(json, dof%size())
82 call object%finalize()
86 call object%init(json, 1)
87 call object%finalize()
91 end subroutine point_zone_factory
93 end submodule point_zone_fctry
Retrieves a parameter by name or throws an error.
Implements a cylinder geometry subset.
Utilities for retrieving parameters from the case files.
character(:) function, allocatable, public concat_string_array(array, sep, prepend)
Concatenate an array of strings into one string with array items separated by spaces.
A cylindrical point zone.
A sphere-shaped point zone.