Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
type(vertex), | private, | allocatable | :: | my_vertices(:) | Local copy of vertices, available to function to be optimized. |
Constructs cylinder by using steepest descents to fit a cylinder to the vertices' locations. We make our figure of merit f = 1 - error
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(vertex), | intent(in) | :: | vertices(:) | |||
type(cylinder), | pointer | :: | this_cylinder |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(cylinder), | pointer | :: | this_cylinder |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(cylinder), | intent(in) | :: | this_cylinder |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(cylinder), | intent(in) | :: | cyl |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
type(vector), | private | :: | axis | ||||
type(vector), | private | :: | center | ||||
real(kind=psb_dpk_), | private | :: | r2 | ||||
real(kind=psb_dpk_), | private | :: | radius |
procedure, public :: get_cylinder_normal | |
procedure, public :: get_cylinder_r2 | |
procedure, public :: get_pt_cylinder | |
generic, public :: nemo_sizeof => nemo_cylinder_sizeof | |
procedure, public :: translate_cylinder | |
procedure, private :: nemo_cylinder_sizeof |