| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=psb_dpk_), | public, | allocatable | :: | a(:) |
Math Operations
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(least_squares), | intent(in) | :: | lsr | |||
| real(kind=psb_dpk_), | intent(inout) | :: | rhs(:) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(least_squares), | intent(in) | :: | lsq |
TYPE least_squares
REAL(psb_dpk_), ALLOCATABLE :: A(:)
CONTAINS
PROCEDURE, PRIVATE :: nemo_least_squares_sizeof
GENERIC, PUBLIC :: nemo_sizeof => nemo_least_squares_sizeof
PROCEDURE, PUBLIC :: solve_least_squares !! Math Operations
END TYPE least_squares