merge_systems_template.F90 File Reference

#include "../general/sanity.F90"
#include "../general/error_checking.inc"
#include "../general/precision_kinds.F90"

Go to the source code of this file.

Functions/Subroutines
subroutine	merge_systems_PRECISION (obj, na, nm, d, e, q, ldq, nqoff, nblk, matrixcols, mpi_comm_rows, mpi_comm_cols, l_col, p_col, l_col_out, p_col_out, npc_0, npc_n, usegpu, wantdebug, success, max_threads)

Function/Subroutine Documentation

merge_systems_PRECISION()

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 )