| subroutine transform_columns_PRECISION |
( |
class(elpa_abstract_impl_t), intent(inout) |
obj, |
|
|
integer(kind=ik) |
col1, |
|
|
integer(kind=ik) |
col2, |
|
|
integer(kind=ik), intent(in) |
na, |
|
|
real(kind=real_datatype), dimension(na) |
tmp, |
|
|
integer(kind=ik), intent(in) |
l_rqs, |
|
|
integer(kind=ik), intent(in) |
l_rqe, |
|
|
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) |
mpi_comm_cols, |
|
|
integer(kind=ik), dimension(na), intent(in) |
p_col, |
|
|
integer(kind=ik), dimension(na), intent(in) |
l_col, |
|
|
real(kind=real_datatype), dimension(2,2), intent(in) |
qtrans |
|
) |
| |
