Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=psb_dpk_), | private | :: | a | ||||
real(kind=psb_dpk_), | private | :: | b | ||||
real(kind=psb_dpk_), | private | :: | c | ||||
real(kind=psb_dpk_), | private | :: | d | ||||
type(vector), | private | :: | normal | ||||
real(kind=psb_dpk_), | private | :: | r2 |
Returns an approximation for the goodness of fit, R2 value, from 0 to 1
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(plane) | :: | this_plane |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(plane), | intent(in) | :: | pl |
TYPE plane
PRIVATE
TYPE(vector) :: normal ! the surface unit normal
REAL(psb_dpk_) :: a,b,c,d ! linear form of a plane:
! a * x + b * y + c * z =d
REAL(psb_dpk_) :: r2 ! The correlation parameter for the fit
CONTAINS
PROCEDURE :: get_plane_normal, get_plane_r2 ! Getters
PROCEDURE :: get_pt_plane ! Getters, cont.
PROCEDURE :: translate_plane ! Setters
PROCEDURE, PRIVATE :: nemo_plane_sizeof
GENERIC, PUBLIC :: nemo_sizeof => nemo_plane_sizeof
END TYPE plane