@brief Fortran-90 routine for packing symmetric matrix to 1D array
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in) | :: | A(:,:) | |||
real(kind=dp), | intent(out) | :: | AP(:) | |||
character(len=1), | intent(in), | optional | :: | UPLO |
@brief Fortran-77 routine for packing symmetric matrix to 1D array
@date 6 October 2021 - Initial release - @author Igor S. Gerasimov
@param[in] A - matrix for packing (N x N)
@param[in] N - shape of matrix A
@param[out] AP - packed matrix ( N*(N+1)/2 )
@param[in] UPLO - format of packed matrix, U
for upper and L
for lower
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in) | :: | A(N,*) | |||
integer, | intent(in) | :: | N | |||
real(kind=dp), | intent(out) | :: | AP(*) | |||
character(len=1), | intent(in) | :: | UPLO |