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

fix

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