ELPA1_compute Module Reference

Functions/Subroutines
subroutine, public	tridiag_real (na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, d, e, tau)
subroutine, public	trans_ev_real (na, nqc, a, lda, tau, q, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols)
subroutine, public	tridiag_complex (na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, d, e, tau)
subroutine, public	trans_ev_complex (na, nqc, a, lda, tau, q, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols)
subroutine, public	solve_tridi (na, nev, d, e, q, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, wantDebug, success)
subroutine	solve_tridi_col (na, nev, nqoff, d, e, q, ldq, nblk, matrixCols, mpi_comm_rows, wantDebug, success)
subroutine	solve_tridi_single (nlen, d, e, q, ldq, wantDebug, success)
subroutine	merge_systems (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, wantDebug, success)
subroutine	v_add_s (v, n, s)
subroutine	distribute_global_column (g_col, l_col, noff, nlen, my_prow, np_rows, nblk)
subroutine	solve_secular_equation (n, i, d, z, delta, rho, dlam)
integer function, public	local_index (idx, my_proc, num_procs, nblk, iflag)
integer function, public	least_common_multiple (a, b)
subroutine, public	hh_transform_real (alpha, xnorm_sq, xf, tau)
subroutine, public	hh_transform_complex (alpha, xnorm_sq, xf, tau)

Function/Subroutine Documentation

subroutine ELPA1_compute::distribute_global_column	(	real(kind=rk), dimension(nlen)	g_col,
		real(kind=rk), dimension(*)	l_col,
		integer(kind=ik)	noff,
		integer(kind=ik)	nlen,
		integer(kind=ik)	my_prow,
		integer(kind=ik)	np_rows,
		integer(kind=ik)	nblk
	)

subroutine, public ELPA1_compute::hh_transform_complex	(	complex(kind=ck), intent(inout)	alpha,
		real(kind=rk), intent(in)	xnorm_sq,
		complex(kind=ck), intent(out)	xf,
		complex(kind=ck), intent(out)	tau
	)

subroutine, public ELPA1_compute::hh_transform_real	(	real(kind=rk), intent(inout)	alpha,
		real(kind=rk), intent(in)	xnorm_sq,
		real(kind=rk), intent(out)	xf,
		real(kind=rk), intent(out)	tau
	)

integer function, public ELPA1_compute::least_common_multiple	(	integer(kind=ik), intent(in)	a,
		integer(kind=ik), intent(in)	b
	)

integer function, public ELPA1_compute::local_index	(	integer(kind=ik)	idx,
		integer(kind=ik)	my_proc,
		integer(kind=ik)	num_procs,
		integer(kind=ik)	nblk,
		integer(kind=ik)	iflag
	)

subroutine ELPA1_compute::merge_systems	(	integer(kind=ik)	na,
		integer(kind=ik)	nm,
		real(kind=rk), dimension(na)	d,
		real(kind=rk)	e,
		real(kind=rk), dimension(ldq,matrixcols)	q,
		integer(kind=ik)	ldq,
		integer(kind=ik)	nqoff,
		integer(kind=ik)	nblk,
		integer(kind=ik)	matrixCols,
		integer(kind=ik)	mpi_comm_rows,
		integer(kind=ik)	mpi_comm_cols,
		integer(kind=ik), dimension(na)	l_col,
		integer(kind=ik), dimension(na)	p_col,
		integer(kind=ik), dimension(na)	l_col_out,
		integer(kind=ik), dimension(na)	p_col_out,
		integer(kind=ik)	npc_0,
		integer(kind=ik)	npc_n,
		logical, intent(in)	wantDebug,
		logical, intent(out)	success
	)

subroutine ELPA1_compute::solve_secular_equation	(	integer(kind=ik)	n,
		integer(kind=ik)	i,
		real(kind=rk), dimension(n)	d,
		real(kind=rk), dimension(n)	z,
		real(kind=rk), dimension(n)	delta,
		real(kind=rk)	rho,
		real(kind=rk)	dlam
	)

subroutine, public ELPA1_compute::solve_tridi	(	integer(kind=ik)	na,
		integer(kind=ik)	nev,
		real(kind=rk), dimension(na)	d,
		real(kind=rk), dimension(na)	e,
		real(kind=rk), dimension(ldq,matrixcols)	q,
		integer(kind=ik)	ldq,
		integer(kind=ik)	nblk,
		integer(kind=ik)	matrixCols,
		integer(kind=ik)	mpi_comm_rows,
		integer(kind=ik)	mpi_comm_cols,
		logical, intent(in)	wantDebug,
		logical, intent(out)	success
	)

subroutine ELPA1_compute::solve_tridi_col	(	integer(kind=ik)	na,
		integer(kind=ik)	nev,
		integer(kind=ik)	nqoff,
		real(kind=rk), dimension(na)	d,
		real(kind=rk), dimension(na)	e,
		real(kind=rk), dimension(ldq,matrixcols)	q,
		integer(kind=ik)	ldq,
		integer(kind=ik)	nblk,
		integer(kind=ik)	matrixCols,
		integer(kind=ik)	mpi_comm_rows,
		logical, intent(in)	wantDebug,
		logical, intent(out)	success
	)

subroutine ELPA1_compute::solve_tridi_single	(	integer(kind=ik)	nlen,
		real(kind=rk), dimension(nlen)	d,
		real(kind=rk), dimension(nlen)	e,
		real(kind=rk), dimension(ldq,nlen)	q,
		integer(kind=ik)	ldq,
		logical, intent(in)	wantDebug,
		logical, intent(out)	success
	)

subroutine, public ELPA1_compute::trans_ev_complex	(	integer(kind=ik)	na,
		integer(kind=ik)	nqc,
		complex(kind=ck), dimension(lda,matrixcols)	a,
		integer(kind=ik)	lda,
		complex(kind=ck), dimension(na)	tau,
		complex(kind=ck), dimension(ldq,matrixcols)	q,
		integer(kind=ik)	ldq,
		integer(kind=ik)	nblk,
		integer(kind=ik)	matrixCols,
		integer(kind=ik)	mpi_comm_rows,
		integer(kind=ik)	mpi_comm_cols
	)

subroutine, public ELPA1_compute::trans_ev_real	(	integer(kind=ik)	na,
		integer(kind=ik)	nqc,
		real(kind=rk), dimension(lda,matrixcols)	a,
		integer(kind=ik)	lda,
		real(kind=rk), dimension(na)	tau,
		real(kind=rk), dimension(ldq,matrixcols)	q,
		integer(kind=ik)	ldq,
		integer(kind=ik)	nblk,
		integer(kind=ik)	matrixCols,
		integer(kind=ik)	mpi_comm_rows,
		integer(kind=ik)	mpi_comm_cols
	)

subroutine, public ELPA1_compute::tridiag_complex	(	integer(kind=ik)	na,
		complex(kind=ck), dimension(lda,matrixcols)	a,
		integer(kind=ik)	lda,
		integer(kind=ik)	nblk,
		integer(kind=ik)	matrixCols,
		integer(kind=ik)	mpi_comm_rows,
		integer(kind=ik)	mpi_comm_cols,
		real(kind=rk), dimension(na)	d,
		real(kind=rk), dimension(na)	e,
		complex(kind=ck), dimension(na)	tau
	)

subroutine, public ELPA1_compute::tridiag_real	(	integer(kind=ik)	na,
		real(kind=rk), dimension(lda,matrixcols)	a,
		integer(kind=ik)	lda,
		integer(kind=ik)	nblk,
		integer(kind=ik)	matrixCols,
		integer(kind=ik)	mpi_comm_rows,
		integer(kind=ik)	mpi_comm_cols,
		real(kind=rk), dimension(na)	d,
		real(kind=rk), dimension(na)	e,
		real(kind=rk), dimension(na)	tau
	)

subroutine ELPA1_compute::v_add_s	(	real(kind=rk), dimension(n)	v,
		integer(kind=ik)	n,
		real(kind=rk)	s
	)