A small testing routine to check the functions of this module.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(out) | :: | success | Indication whether the tests were completed successfully. |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=rk), | private, | allocatable | :: | large_mat(:,:) | |||
real(kind=rk), | private, | allocatable | :: | small_mat(:,:) | |||
real(kind=rk), | private | :: | res | ||||
integer, | private | :: | iiter | ||||
integer, | private | :: | jiter |