#include "../general/sanity.F90"
#include "../general/error_checking.inc"
#include "../../src/general/precision_kinds.F90"
Go to the source code of this file.
|
| subroutine | solve_tridi_cpu_PRECISION_AND_SUFFIX (obj, na, nev, d, e, q, ldq, nblk, matrixcols, mpi_comm_all, mpi_comm_rows, mpi_comm_cols, wantdebug, success, max_threads) |
| |
◆ solve_tridi_cpu_PRECISION_AND_SUFFIX()
| subroutine solve_tridi_cpu_PRECISION_AND_SUFFIX |
( |
class(elpa_abstract_impl_t), intent(inout) | obj, |
|
|
integer(kind=ik), intent(in) | na, |
|
|
integer(kind=ik), intent(in) | nev, |
|
|
real(kind=real_datatype), dimension(na), intent(inout) | d, |
|
|
real(kind=real_datatype), dimension(na), intent(inout) | e, |
|
|
real(kind=real_datatype), dimension(ldq,matrixcols), intent(inout) | q, |
|
|
integer(kind=ik), intent(in) | ldq, |
|
|
integer(kind=ik), intent(in) | nblk, |
|
|
integer(kind=ik), intent(in) | matrixcols, |
|
|
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) | wantdebug, |
|
|
logical, intent(out) | success, |
|
|
integer(kind=ik), intent(in) | max_threads ) |
