Commit 7f89a133 authored by Andreas Marek's avatar Andreas Marek
Browse files

Save guard against unknown values for string "method"

parent c18b7bf5
......@@ -114,6 +114,7 @@ module elpa
mpi_comm_all, THIS_REAL_ELPA_KERNEL_API, &
useQR, method) result(success)
use iso_c_binding
use elpa_utilities
implicit none
integer(kind=c_int), intent(in) :: na, nev, lda, ldq, matrixCols, mpi_comm_rows, &
mpi_comm_cols, mpi_comm_all
......@@ -140,6 +141,9 @@ module elpa
useELPA1 = .false.
else if (trim(method) .eq. "auto" .or. trim(method) .eq. "AUTO") then
useELPA1 = .false.
else
write(error_unit,*) "Specified method not known! Using ELPA 2-stage"
useELPA1 = .false.
endif
endif
......@@ -206,6 +210,8 @@ module elpa
mpi_comm_all, THIS_COMPLEX_ELPA_KERNEL_API,&
method) result(success)
use iso_c_binding
use elpa_utilities
implicit none
integer(kind=c_int), intent(in) :: na, nev, lda, ldq, matrixCols, mpi_comm_rows, &
mpi_comm_cols, mpi_comm_all
......@@ -231,6 +237,9 @@ module elpa
useELPA1 = .false.
else if (trim(method) .eq. "auto" .or. trim(method) .eq. "AUTO") then
useELPA1 = .false.
else
write(error_unit,*) "Specified method not known! Using ELPA 2-stage"
useELPA1 = .false.
endif
endif
......
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