| 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 |