elpa1_compute_private.F90 File Reference

#include "config-f90.h"
#include "elpa_transpose_vectors.X90"
#include "elpa_reduce_add_vectors.X90"

Modules
module	ELPA1_compute

Macros
#define	DATATYPE   REAL(kind=rk)
#define	BYTESIZE   8
#define	REALCASE   1
#define	DATATYPE   COMPLEX(kind=ck)
#define	BYTESIZE   16
#define	COMPLEXCASE   1

Functions/Subroutines
subroutine, public	ELPA1_compute::tridiag_real (na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, d, e, tau)
subroutine, public	ELPA1_compute::trans_ev_real (na, nqc, a, lda, tau, q, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols)
subroutine, public	ELPA1_compute::tridiag_complex (na, a, lda, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, d, e, tau)
subroutine, public	ELPA1_compute::trans_ev_complex (na, nqc, a, lda, tau, q, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols)
subroutine, public	ELPA1_compute::solve_tridi (na, nev, d, e, q, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols, wantDebug, success)
recursive subroutine	merge_recursive (np_off, nprocs, wantDebug, success)
subroutine	ELPA1_compute::solve_tridi_col (na, nev, nqoff, d, e, q, ldq, nblk, matrixCols, mpi_comm_rows, wantDebug, success)
subroutine	ELPA1_compute::solve_tridi_single (nlen, d, e, q, ldq, wantDebug, success)
subroutine	ELPA1_compute::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	add_tmp (d1, dbase, ddiff, z, ev_scale_value, na1, i)
subroutine	resort_ev (idx_ev, nLength)
subroutine	transform_columns (col1, col2)
subroutine	global_gather (z, n)
subroutine	global_product (z, n)
subroutine	check_monotony (n, d, text, wantDebug, success)
subroutine	ELPA1_compute::v_add_s (v, n, s)
subroutine	ELPA1_compute::distribute_global_column (g_col, l_col, noff, nlen, my_prow, np_rows, nblk)
subroutine	ELPA1_compute::solve_secular_equation (n, i, d, z, delta, rho, dlam)
integer function, public	ELPA1_compute::local_index (idx, my_proc, num_procs, nblk, iflag)
integer function, public	ELPA1_compute::least_common_multiple (a, b)
subroutine, public	ELPA1_compute::hh_transform_real (alpha, xnorm_sq, xf, tau)
subroutine, public	ELPA1_compute::hh_transform_complex (alpha, xnorm_sq, xf, tau)

Macro Definition Documentation

#define BYTESIZE   8

#define BYTESIZE   16

#define COMPLEXCASE   1

#define DATATYPE   REAL(kind=rk)

#define DATATYPE   COMPLEX(kind=ck)

#define REALCASE   1

Function/Subroutine Documentation

subroutine merge_systems::add_tmp	(	real(kind=rk), dimension(:), intent(in)	d1,
		real(kind=rk), dimension(:), intent(in)	dbase,
		real(kind=rk), dimension(:), intent(in)	ddiff,
		real(kind=rk), dimension(:), intent(in)	z,
		real(kind=rk), intent(inout)	ev_scale_value,
		integer(kind=ik), intent(in)	na1,
		integer(kind=ik), intent(in)	i
	)

subroutine merge_systems::check_monotony	(	integer(kind=ik)	n,
		real(kind=rk), dimension(n)	d,
		character*(*)	text,
		logical, intent(in)	wantDebug,
		logical, intent(out)	success
	)

subroutine merge_systems::global_gather	(	real(kind=rk), dimension(n)	z,
		integer(kind=ik)	n
	)

subroutine merge_systems::global_product	(	real(kind=rk), dimension(n)	z,
		integer(kind=ik)	n
	)

recursive subroutine solve_tridi::merge_recursive	(	integer(kind=ik)	np_off,
		integer(kind=ik)	nprocs,
		logical, intent(in)	wantDebug,
		logical, intent(out)	success
	)

subroutine merge_systems::resort_ev	(	integer(kind=ik), dimension(nlength)	idx_ev,
		integer(kind=ik), intent(in)	nLength
	)

subroutine merge_systems::transform_columns	(	integer(kind=ik)	col1,
		integer(kind=ik)	col2
	)