merge_systems_template.F90 File Reference

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

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)
subroutine	add_tmp_PRECISION (obj, d1, dbase, ddiff, z, ev_scale_value, na1, i)
subroutine	resort_ev_PRECISION (obj, idx_ev, nLength)
subroutine	transform_columns_PRECISION (obj, col1, col2)
subroutine	global_gather_PRECISION (obj, z, n)
subroutine	global_product_PRECISION (obj, z, n)
subroutine	check_monotony_PRECISION (obj, n, d, text, wantDebug, success)

Function/Subroutine Documentation

add_tmp_PRECISION()

subroutine merge_systems_PRECISION::add_tmp_PRECISION	(	class(elpa_abstract_impl_t), intent(inout)	obj,
		real(kind=real_datatype), dimension(:), intent(in)	d1,
		real(kind=real_datatype), dimension(:), intent(in)	dbase,
		real(kind=real_datatype), dimension(:), intent(in)	ddiff,
		real(kind=real_datatype), dimension(:), intent(in)	z,
		real(kind=real_datatype), intent(inout)	ev_scale_value,
		integer(kind=ik), intent(in)	na1,
		integer(kind=ik), intent(in)	i
	)

check_monotony_PRECISION()

subroutine merge_systems_PRECISION::check_monotony_PRECISION	(	class(elpa_abstract_impl_t), intent(inout)	obj,
		integer(kind=ik)	n,
		real(kind=real_datatype), dimension(n)	d,
		character*(*)	text,
		logical, intent(in)	wantDebug,
		logical, intent(out)	success
	)

global_gather_PRECISION()

subroutine merge_systems_PRECISION::global_gather_PRECISION	(	class(elpa_abstract_impl_t), intent(inout)	obj,
		real(kind=real_datatype), dimension(n)	z,
		integer(kind=ik)	n
	)

global_product_PRECISION()

subroutine merge_systems_PRECISION::global_product_PRECISION	(	class(elpa_abstract_impl_t), intent(inout)	obj,
		real(kind=real_datatype), dimension(n)	z,
		integer(kind=ik)	n
	)

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
	)

resort_ev_PRECISION()

subroutine merge_systems_PRECISION::resort_ev_PRECISION	(	class(elpa_abstract_impl_t), intent(inout)	obj,
		integer(kind=ik), dimension(nlength)	idx_ev,
		integer(kind=ik), intent(in)	nLength
	)

transform_columns_PRECISION()

subroutine merge_systems_PRECISION::transform_columns_PRECISION	(	class(elpa_abstract_impl_t), intent(inout)	obj,
		integer(kind=ik)	col1,
		integer(kind=ik)	col2
	)