Commit e1555897 authored by Andreas Marek's avatar Andreas Marek

Remove generalized code under development

parent eadc3079
...@@ -119,11 +119,13 @@ module elpa_api ...@@ -119,11 +119,13 @@ module elpa_api
elpa_eigenvalues_dc, & elpa_eigenvalues_dc, &
elpa_eigenvalues_fc elpa_eigenvalues_fc
#if 0
generic, public :: generalized_eigenvectors => & !< method eigenvectors for solving the full generalized eigenvalue problem generic, public :: generalized_eigenvectors => & !< method eigenvectors for solving the full generalized eigenvalue problem
elpa_generalized_eigenvectors_d, & !< the eigenvalues and (parts of) the eigenvectors are computed elpa_generalized_eigenvectors_d, & !< the eigenvalues and (parts of) the eigenvectors are computed
elpa_generalized_eigenvectors_f, & !< for symmetric real valued / hermitian complex valued matrices elpa_generalized_eigenvectors_f, & !< for symmetric real valued / hermitian complex valued matrices
elpa_generalized_eigenvectors_dc, & elpa_generalized_eigenvectors_dc, &
elpa_generalized_eigenvectors_fc elpa_generalized_eigenvectors_fc
#endif
generic, public :: hermitian_multiply => & !< method for a "hermitian" multiplication of matrices a and b generic, public :: hermitian_multiply => & !< method for a "hermitian" multiplication of matrices a and b
elpa_hermitian_multiply_d, & !< for real valued matrices: a**T * b elpa_hermitian_multiply_d, & !< for real valued matrices: a**T * b
...@@ -169,10 +171,12 @@ module elpa_api ...@@ -169,10 +171,12 @@ module elpa_api
procedure(elpa_eigenvalues_dc_i), deferred, public :: elpa_eigenvalues_dc procedure(elpa_eigenvalues_dc_i), deferred, public :: elpa_eigenvalues_dc
procedure(elpa_eigenvalues_fc_i), deferred, public :: elpa_eigenvalues_fc procedure(elpa_eigenvalues_fc_i), deferred, public :: elpa_eigenvalues_fc
#if 0
procedure(elpa_generalized_eigenvectors_d_i), deferred, public :: elpa_generalized_eigenvectors_d procedure(elpa_generalized_eigenvectors_d_i), deferred, public :: elpa_generalized_eigenvectors_d
procedure(elpa_generalized_eigenvectors_f_i), deferred, public :: elpa_generalized_eigenvectors_f procedure(elpa_generalized_eigenvectors_f_i), deferred, public :: elpa_generalized_eigenvectors_f
procedure(elpa_generalized_eigenvectors_dc_i), deferred, public :: elpa_generalized_eigenvectors_dc procedure(elpa_generalized_eigenvectors_dc_i), deferred, public :: elpa_generalized_eigenvectors_dc
procedure(elpa_generalized_eigenvectors_fc_i), deferred, public :: elpa_generalized_eigenvectors_fc procedure(elpa_generalized_eigenvectors_fc_i), deferred, public :: elpa_generalized_eigenvectors_fc
#endif
procedure(elpa_hermitian_multiply_d_i), deferred, public :: elpa_hermitian_multiply_d procedure(elpa_hermitian_multiply_d_i), deferred, public :: elpa_hermitian_multiply_d
procedure(elpa_hermitian_multiply_f_i), deferred, public :: elpa_hermitian_multiply_f procedure(elpa_hermitian_multiply_f_i), deferred, public :: elpa_hermitian_multiply_f
...@@ -800,6 +804,7 @@ module elpa_api ...@@ -800,6 +804,7 @@ module elpa_api
end subroutine end subroutine
end interface end interface
#if 0
!> \brief abstract definition of interface to solve double real generalized eigenvalue problem !> \brief abstract definition of interface to solve double real generalized eigenvalue problem
!> !>
!> The dimensions of the matrix a and b (locally ditributed and global), the block-cyclic distribution !> The dimensions of the matrix a and b (locally ditributed and global), the block-cyclic distribution
...@@ -948,6 +953,7 @@ module elpa_api ...@@ -948,6 +953,7 @@ module elpa_api
integer, optional :: error integer, optional :: error
end subroutine end subroutine
end interface end interface
#endif
!> \brief abstract definition of interface to compute C : = A**T * B for double real matrices !> \brief abstract definition of interface to compute C : = A**T * B for double real matrices
......
...@@ -107,11 +107,13 @@ module elpa_impl ...@@ -107,11 +107,13 @@ module elpa_impl
procedure, public :: elpa_eigenvalues_dc procedure, public :: elpa_eigenvalues_dc
procedure, public :: elpa_eigenvalues_fc procedure, public :: elpa_eigenvalues_fc
#if 0
procedure, public :: elpa_generalized_eigenvectors_d !< public methods to implement the solve step for generalized procedure, public :: elpa_generalized_eigenvectors_d !< public methods to implement the solve step for generalized
!< eigenproblem and real/complex double/single matrices !< eigenproblem and real/complex double/single matrices
procedure, public :: elpa_generalized_eigenvectors_f procedure, public :: elpa_generalized_eigenvectors_f
procedure, public :: elpa_generalized_eigenvectors_dc procedure, public :: elpa_generalized_eigenvectors_dc
procedure, public :: elpa_generalized_eigenvectors_fc procedure, public :: elpa_generalized_eigenvectors_fc
#endif
procedure, public :: elpa_hermitian_multiply_d !< public methods to implement a "hermitian" multiplication of matrices a and b procedure, public :: elpa_hermitian_multiply_d !< public methods to implement a "hermitian" multiplication of matrices a and b
procedure, public :: elpa_hermitian_multiply_f !< for real valued matrices: a**T * b procedure, public :: elpa_hermitian_multiply_f !< for real valued matrices: a**T * b
...@@ -135,6 +137,7 @@ module elpa_impl ...@@ -135,6 +137,7 @@ module elpa_impl
procedure, public :: associate_int => elpa_associate_int !< public method to set some pointers procedure, public :: associate_int => elpa_associate_int !< public method to set some pointers
#if 0
procedure, private :: elpa_transform_generalized_d procedure, private :: elpa_transform_generalized_d
procedure, private :: elpa_transform_back_generalized_d procedure, private :: elpa_transform_back_generalized_d
procedure, private :: elpa_transform_generalized_dc procedure, private :: elpa_transform_generalized_dc
...@@ -146,6 +149,7 @@ module elpa_impl ...@@ -146,6 +149,7 @@ module elpa_impl
#ifdef WANT_SINGLE_PRECISION_COMPLEX #ifdef WANT_SINGLE_PRECISION_COMPLEX
procedure, private :: elpa_transform_generalized_fc procedure, private :: elpa_transform_generalized_fc
procedure, private :: elpa_transform_back_generalized_fc procedure, private :: elpa_transform_back_generalized_fc
#endif
#endif #endif
procedure, public :: autotune_setup => elpa_autotune_setup procedure, public :: autotune_setup => elpa_autotune_setup
...@@ -1477,6 +1481,7 @@ module elpa_impl ...@@ -1477,6 +1481,7 @@ module elpa_impl
call elpa_eigenvalues_fc(self, a, ev, error) call elpa_eigenvalues_fc(self, a, ev, error)
end subroutine end subroutine
#if 0
!******************************************************************************************************** !********************************************************************************************************
! GENERALIZED EIGENVECTOR PROBLEM ! GENERALIZED EIGENVECTOR PROBLEM
!******************************************************************************************************** !********************************************************************************************************
...@@ -1906,7 +1911,7 @@ module elpa_impl ...@@ -1906,7 +1911,7 @@ module elpa_impl
call elpa_generalized_eigenvectors_fc(self, a, b, ev, q, sc_desc, error) call elpa_generalized_eigenvectors_fc(self, a, b, ev, q, sc_desc, error)
end subroutine end subroutine
#endif
!******************************************************************************************************** !********************************************************************************************************
......
#if 0
subroutine elpa_transform_generalized_& subroutine elpa_transform_generalized_&
&ELPA_IMPL_SUFFIX& &ELPA_IMPL_SUFFIX&
&(self, a, b, sc_desc, error) &(self, a, b, sc_desc, error)
...@@ -87,4 +87,5 @@ ...@@ -87,4 +87,5 @@
#endif #endif
end subroutine end subroutine
#endif
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment