| subroutine merge_systems_PRECISION |
( |
class(elpa_abstract_impl_t), intent(inout) |
obj, |
|
|
integer(kind=ik), intent(in) |
na, |
|
|
integer(kind=ik), intent(in) |
nm, |
|
|
real(kind=real_datatype), dimension(na), intent(inout) |
d, |
|
|
real(kind=real_datatype), intent(inout) |
e, |
|
|
real(kind=real_datatype), dimension(ldq,matrixcols), intent(inout) |
q, |
|
|
integer(kind=ik), intent(in) |
ldq, |
|
|
integer(kind=ik), intent(in) |
nqoff, |
|
|
integer(kind=ik), intent(in) |
nblk, |
|
|
integer(kind=ik), intent(in) |
matrixCols, |
|
|
integer(kind=ik), intent(in) |
mpi_comm_rows, |
|
|
integer(kind=ik), intent(in) |
mpi_comm_cols, |
|
|
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_out, |
|
|
integer(kind=ik), dimension(na), intent(in) |
p_col_out, |
|
|
integer(kind=ik), intent(in) |
npc_0, |
|
|
integer(kind=ik), intent(in) |
npc_n, |
|
|
logical, intent(in) |
useGPU, |
|
|
logical, intent(in) |
wantDebug, |
|
|
logical, intent(out) |
success, |
|
|
integer(kind=ik), intent(in) |
max_threads |
|
) |
| |
