Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
19861fa9
Commit
19861fa9
authored
Apr 12, 2017
by
Pavel Kus
Browse files
fix
parent
0e5e0c20
Changes
2
Pipelines
1
Show whitespace changes
Inline
Side-by-side
src/elpa1/elpa1_template.X90
View file @
19861fa9
...
...
@@ -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, &
...
...
src/elpa_driver_c_interface_template.X90
View file @
19861fa9
...
...
@@ -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
...
...
Lorenz Huedepohl
@loh
·
Apr 12, 2017
Maintainer
What is this supposed to fix?
What is this supposed to fix?
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment