#include "../general/error_checking.inc"
|
subroutine | resort_ev_PRECISION (obj, idx_ev, nLength, na, p_col_out, q, ldq, matrixCols, l_rows, l_rqe, l_rqs, mpi_comm_cols, p_col, l_col, l_col_out) |
|
◆ resort_ev_PRECISION()
subroutine resort_ev_PRECISION |
( |
class(elpa_abstract_impl_t), intent(inout) |
obj, |
|
|
integer(kind=ik), dimension(nlength) |
idx_ev, |
|
|
integer(kind=ik), intent(in) |
nLength, |
|
|
integer(kind=ik), intent(in) |
na, |
|
|
integer(kind=ik), dimension(na), intent(in) |
p_col_out, |
|
|
real(kind=real_datatype), dimension(ldq,matrixcols), intent(inout) |
q, |
|
|
integer(kind=ik), intent(in) |
ldq, |
|
|
integer(kind=ik), intent(in) |
matrixCols, |
|
|
integer(kind=ik), intent(in) |
l_rows, |
|
|
integer(kind=ik), intent(in) |
l_rqe, |
|
|
integer(kind=ik), intent(in) |
l_rqs, |
|
|
integer(kind=ik), intent(in) |
mpi_comm_cols, |
|
|
integer(kind=ik), dimension(na), intent(in) |
p_col, |
|
|
integer(kind=ik), dimension(na), intent(in) |
l_col, |
|
|
integer(kind=ik), dimension(na), intent(in) |
l_col_out |
|
) |
| |