ELPADiagonalizer_module.f90

Go to the documentation of this file.

! Copyright 2019
!
! For a comprehensive list of the developers that contributed to these codes
! see the UK-AMOR website.
!
! This file is part of UKRmol-in (UKRmol+ suite).
!
!     UKRmol-in is free software: you can redistribute it and/or modify
!     it under the terms of the GNU General Public License as published by
!     the Free Software Foundation, either version 3 of the License, or
!     (at your option) any later version.
!
!     UKRmol-in is distributed in the hope that it will be useful,
!     but WITHOUT ANY WARRANTY; without even the implied warranty of
!     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!     GNU General Public License for more details.
!
!     You should have received a copy of the GNU General Public License
!     along with  UKRmol-in (in source/COPYING). Alternatively, you can also visit
!     <https://www.gnu.org/licenses/>.
 
module elpadiagonalizer_module
 
    use diagonalizer_module,          only: basediagonalizer
    use baseintegral_module,          only: baseintegral
    use blas_lapack,                  only: blasint
    use const,                        only: stdout
    use mpi_mod,                      only: mpi_xermsg, nprocs, myrank
    use options_module,               only: options
    use parallelization_module,       only: grid => process_grid
    use precisn,                      only: wp
    use elpamatrix_module,            only: elpamatrix
    use scalapackdiagonalizer_module, only: scalapackdiagonalizer
    use scalapackmatrix_module,       only: scalapackmatrix
 
    use iso_c_binding, only: c_int
    use elpa,          only: elpa_t, elpa_allocate, elpa_deallocate, elpa_init, elpa_uninit, elpa_ok, elpa_solver_1stage
 
    implicit none
 
    integer, parameter :: elpaint = c_int
 
    type, extends(scalapackdiagonalizer) :: elpadiagonalizer
    contains
        procedure, public :: diagonalize_backend => diagonalize_backend_elpa
    end type elpadiagonalizer
 
contains
 
    subroutine initialize_elpa
 
        integer(elpaint), parameter :: elpa_api = 20181112
        integer(elpaint) :: success
 
        success = elpa_init(elpa_api)
        call elpa_assert('initialize_elpa', 'ELPA API version not supported', success)
 
    end subroutine initialize_elpa
 
 
    subroutine diagonalize_backend_elpa (this, matrix_elements, num_eigenpair, z_mat, w, all_procs, option, integrals)
 
        class(elpadiagonalizer)               :: this
        class(scalapackmatrix), intent(in)    :: matrix_elements
        class(baseintegral),    intent(in)    :: integrals
        type(options),          intent(in)    :: option
        integer,                intent(in)    :: num_eigenpair
        logical,                intent(in)    :: all_procs
        real(wp), allocatable,  intent(inout) :: z_mat(:,:), w(:)
 
        integer                :: ierr
        integer(elpaint)       :: success, nb, loc_r, loc_c, mat_dimen, myrow, mycol, nev, comm
        class(elpa_t), pointer :: elpa
 
        write (stdout, "('Diagonalization will be done with ELPA')")
 
        comm  = grid % gcomm
        myrow = grid % mygrow
        mycol = grid % mygcol
        nev   = num_eigenpair
 
        mat_dimen = matrix_elements % get_matrix_size()
        loc_r     = matrix_elements % local_row_dimen
        loc_c     = matrix_elements % local_col_dimen
        nb        = matrix_elements % scal_block_size
 
        ! allocate the eigenvectors
        allocate(z_mat(loc_r, loc_c), w(mat_dimen), stat = ierr)
        if (ierr /= 0) then
            call mpi_xermsg('ELPADiagonalizer_module', 'diagonalize_backend_ELPA', 'Memory allocation error.', ierr, 1)
        end if
 
        ! create the ELPA object
        elpa => elpa_allocate(success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to create ELPA object.', success)
 
        ! set matrix-related ELPA parameters
        call elpa % set('na', mat_dimen, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set "na" for ELPA.', success)
        call elpa % set('nev', mat_dimen, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set "nev" for ELPA.', success)
        call elpa % set('local_nrows', loc_r, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set "local_nrows" for ELPA.', success)
        call elpa % set('local_ncols', loc_c, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set "local_ncols" for ELPA.', success)
        call elpa % set('nblk', nb, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set "nblk" for ELPA.', success)
        call elpa % set('mpi_comm_parent', comm, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set "mpi_comm_parent" for ELPA.', success)
        call elpa % set('process_row', myrow, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set "process_row" for ELPA.', success)
        call elpa % set('process_col', mycol, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set "process_col" for ELPA.', success)
 
        ! finalize the setup
        success = elpa % setup()
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to set up the ELPA object.', success)
 
        ! run the solver
        call elpa % eigenvectors(matrix_elements % a_local_matrix, w, z_mat, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Diagonalization using ELPA failed.', success)
 
        ! free the memory, possible getting ready for another diagonalization
        call elpa_deallocate(elpa, success)
        call elpa_assert('diagonalize_backend_ELPA', 'Failed to deallocate the ELPA object.', success)
 
    end subroutine diagonalize_backend_elpa
 
 
    subroutine elpa_assert (sub, msg, err)
 
        character(len=*), intent(in) :: sub, msg
        integer(elpaint), intent(in) :: err
 
        if (err /= elpa_ok) then
            call mpi_xermsg('ELPADiagonalizer_module', sub, msg, int(err), 1)
        end if
 
    end subroutine elpa_assert
 
end module elpadiagonalizer_module