| recursive subroutine merge_recursive_PRECISION |
( |
class(elpa_abstract_impl_t), intent(inout) |
obj, |
|
|
integer(kind=ik) |
np_off, |
|
|
integer(kind=ik) |
nprocs, |
|
|
integer(kind=ik), intent(in) |
ldq, |
|
|
integer(kind=ik), intent(in) |
matrixCols, |
|
|
integer(kind=ik), intent(in) |
nblk, |
|
|
integer(kind=ik), dimension(na), intent(in) |
l_col, |
|
|
integer(kind=ik), dimension(na), intent(in) |
p_col, |
|
|
integer(kind=ik), dimension(na), intent(in) |
l_col_bc, |
|
|
integer(kind=ik), dimension(na), intent(in) |
p_col_bc, |
|
|
integer(kind=ik), dimension(0:np_cols), intent(in) |
limits, |
|
|
integer(kind=ik), intent(in) |
np_cols, |
|
|
integer(kind=ik), intent(in) |
na, |
|
|
real(kind=real_datatype), dimension(ldq,matrixcols), intent(inout) |
q, |
|
|
real(kind=real_datatype), dimension(na), intent(inout) |
d, |
|
|
real(kind=real_datatype), dimension(na), intent(inout) |
e, |
|
|
integer(kind=ik), intent(in) |
mpi_comm_all, |
|
|
integer(kind=ik), intent(in) |
mpi_comm_rows, |
|
|
integer(kind=ik), intent(in) |
mpi_comm_cols, |
|
|
logical, intent(in) |
useGPU, |
|
|
logical, intent(in) |
wantDebug, |
|
|
logical, intent(out) |
success, |
|
|
integer(kind=ik), intent(in) |
max_threads |
|
) |
| |
