Commit 19861fa9 authored by Pavel Kus's avatar Pavel Kus
Browse files

fix

parent 0e5e0c20
......@@ -115,8 +115,10 @@ function elpa_solve_evp_&
success = .true.
if (elpa_init(20170403) /= ELPA_OK) then
print *, "ELPA API version not supported"
stop
success = .false.
error stop "ELPA API version not supported"
return
endif
elpa1stage = elpa_create(na, nev, lda, matrixCols, nblk, mpi_comm_all, &
......
......@@ -69,8 +69,8 @@ function elpa_solve_evp_&
implicit none
integer(kind=c_int) :: success
integer(kind=c_int), value, intent(in) :: na, nev, lda, ldq, nblk, matrixCols, mpi_comm_cols, mpi_comm_rows, &
mpi_comm_all
integer(kind=c_int), value, intent(in) :: na, nev, lda, ldq, nblk, matrixCols, &
mpi_comm_cols, mpi_comm_rows, mpi_comm_all
integer(kind=c_int), value, intent(in) :: useGPU
#if REALCASE == 1
integer(kind=c_int), value, intent(in) :: THIS_REAL_ELPA_KERNEL_API, useQR
......
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