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 ) |