Skip to content

GitLab

elpa
elpa
Commit e4b6b3da authored by Andreas Marek's avatar Andreas Marek
Browse files
Options

Pass some arguments to new interface

parent a1541f46
Hide whitespace changes
Inline Side-by-side
Showing with 62 additions and 8 deletions
src/elpa_t.F90
View file @ e4b6b3da
......@@ -416,7 +416,8 @@ module elpa_type
integer(kind=c_int) :: success_internal
logical :: success_l, summary_timings
logical :: useGPU
logical :: useGPU, useQR
integer(kind=c_int) :: THIS_ELPA_KERNEL_API
if (self%get("summary_timings",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
......@@ -441,6 +442,25 @@ module elpa_type
useGPU = .false.
endif
if (self%get("qr",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry qr"
stop
endif
useQR = .true.
else
useQR = .false.
endif
THIS_ELPA_KERNEL_API = self%get("real_kernel",success_internal)
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry kernel"
stop
endif
if (self%get("solver",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry solver"
......@@ -461,7 +481,8 @@ module elpa_type
self%local_nrows, self%nblk, self%local_ncols, &
self%mpi_comm_rows, self%mpi_comm_cols, &
self%mpi_comm_parent, time_evp_fwd, &
time_evp_solve, time_evp_back, summary_timings, useGPU)
time_evp_solve, time_evp_back, summary_timings, useGPU, &
THIS_ELPA_KERNEL_API, useQR)
else
print *,"unknown solver"
stop
......@@ -514,8 +535,8 @@ module elpa_type
integer(kind=c_int) :: success_internal
logical :: success_l, summary_timings
logical :: useGPU
logical :: useGPU, useQR
integer(kind=c_int) :: THIS_ELPA_KERNEL_API
#ifdef WANT_SINGLE_PRECISION_REAL
if (self%get("timings",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
......@@ -539,6 +560,23 @@ module elpa_type
useGPU = .false.
endif
if (self%get("qr",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry qr"
stop
endif
useQR = .true.
else
useQR = .false.
endif
THIS_ELPA_KERNEL_API = self%get("real_kernel",success_internal)
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry kernel"
stop
endif
if (self%get("solver",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry solver"
......@@ -559,7 +597,8 @@ module elpa_type
self%local_nrows, self%nblk, self%local_ncols, &
self%mpi_comm_rows, self%mpi_comm_cols, &
self%mpi_comm_parent, time_evp_fwd, &
time_evp_solve, time_evp_back, summary_timings, useGPU)
time_evp_solve, time_evp_back, summary_timings, useGPU, &
THIS_ELPA_KERNEL_API, useQR)
else
print *,"unknown solver"
stop
......@@ -621,6 +660,7 @@ module elpa_type
logical :: success_l, summary_timings
logical :: useGPU
integer(kind=c_int) :: THIS_ELPA_KERNEL_API
if (self%get("timings",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry summary timings"
......@@ -643,6 +683,12 @@ module elpa_type
useGPU = .false.
endif
THIS_ELPA_KERNEL_API = self%get("real_kernel",success_internal)
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry kernel"
stop
endif
if (self%get("solver",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry solver"
......@@ -663,7 +709,8 @@ module elpa_type
self%local_nrows, self%nblk, self%local_ncols, &
self%mpi_comm_rows, self%mpi_comm_cols, &
self%mpi_comm_parent, time_evp_fwd, &
time_evp_solve, time_evp_back, summary_timings, useGPU)
time_evp_solve, time_evp_back, summary_timings, useGPU, &
THIS_ELPA_KERNEL_API)
else
print *,"unknown solver"
stop
......@@ -719,7 +766,7 @@ module elpa_type
logical :: success_l, summary_timings
logical :: useGPU
integer(kind=c_int) :: THIS_ELPA_KERNEL_API
#ifdef WANT_SINGLE_PRECISION_COMPLEX
if (self%get("summary_timings",success_internal) .eq. 1) then
......@@ -744,6 +791,12 @@ module elpa_type
useGPU = .false.
endif
THIS_ELPA_KERNEL_API = self%get("real_kernel",success_internal)
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry kernel"
stop
endif
if (self%get("solver",success_internal) .eq. 1) then
if (success_internal .ne. ELPA_OK) then
print *,"Could not querry solver"
......@@ -764,7 +817,8 @@ module elpa_type
self%local_nrows, self%nblk, self%local_ncols, &
self%mpi_comm_rows, self%mpi_comm_cols, &
self%mpi_comm_parent, time_evp_fwd, &
time_evp_solve, time_evp_back, summary_timings, useGPU)
time_evp_solve, time_evp_back, summary_timings, useGPU, &
THIS_ELPA_KERNEL_API)
else
print *,"unknown solver"
stop
......
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