Unverified Commit 1bcc2ed2 authored by Andreas Marek's avatar Andreas Marek
Browse files

Missing Fortran modules for single precision case

parent 8f88d81d
......@@ -440,6 +440,8 @@ function solve_evp_real_1stage_single(na, nev, a, lda, ev, q, ldq, nblk, matrixC
use timings
#endif
use iso_c_binding
use elpa_mpi
use elpa1_compute
implicit none
integer(kind=ik), intent(in) :: na, nev, lda, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols
......@@ -708,6 +710,8 @@ function solve_evp_complex_1stage_single(na, nev, a, lda, ev, q, ldq, nblk, matr
#endif
use precision
use iso_c_binding
use elpa_mpi
use elpa1_compute
implicit none
integer(kind=ik), intent(in) :: na, nev, lda, ldq, nblk, matrixCols, mpi_comm_rows, mpi_comm_cols
......
......@@ -514,6 +514,9 @@ contains
use cuda_functions
use mod_check_for_gpu
use iso_c_binding
use elpa1_compute
use elpa2_compute
use elpa_mpi
implicit none
logical, intent(in), optional :: useQR
logical :: useQRActual, useQREnvironment
......@@ -1173,6 +1176,9 @@ function solve_evp_complex_2stage_single(na, nev, a, lda, ev, q, ldq, nblk, &
use precision
use cuda_functions
use mod_check_for_gpu
use elpa1_compute
use elpa2_compute
use elpa_mpi
use iso_c_binding
implicit none
integer(kind=ik), intent(in), optional :: THIS_COMPLEX_ELPA_KERNEL_API
......
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