Commit e530fe3b authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove some stops, return error code

parent e4b6b3da
......@@ -116,7 +116,6 @@ function elpa_solve_evp_&
success = .true.
if (elpa_init(20170403) /= ELPA_OK) then
print *, "ELPA API version not supported"
stop
success = .false.
return
endif
......@@ -126,14 +125,12 @@ function elpa_solve_evp_&
if (successInternal .ne. ELPA_OK) then
print *, "Cannot create elpa object"
success = .false.
stop
return
endif
call elpa1stage%set("solver", ELPA_SOLVER_1STAGE, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set ELPA 1stage solver"
stop
success = .false.
return
endif
......@@ -143,7 +140,6 @@ function elpa_solve_evp_&
call elpa1stage%set("gpu", 1, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set gpu"
stop
success = .false.
return
endif
......@@ -151,7 +147,6 @@ function elpa_solve_evp_&
call elpa1stage%set("gpu", 0, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set gpu"
stop
success = .false.
return
endif
......@@ -162,7 +157,6 @@ function elpa_solve_evp_&
call elpa1stage%set("summary_timings", 1,successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set summary_timings"
stop
success = .false.
return
endif
......@@ -171,7 +165,6 @@ function elpa_solve_evp_&
call elpa1stage%solve(a(1:lda,1:matrixCols), ev, q(1:ldq,1:matrixCols), successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot solve with ELPA 1stage"
stop
success = .false.
return
endif
......
......@@ -109,7 +109,6 @@
success = .true.
if (elpa_init(20170403) /= ELPA_OK) then
print *, "ELPA API version not supported"
stop
success = .false.
return
endif
......@@ -120,14 +119,12 @@
if (successInternal .ne. ELPA_OK) then
print *, "Cannot create elpa object"
success = .false.
stop
return
endif
call elpa2stage%set("solver", ELPA_SOLVER_2STAGE, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set ELPA 1stage solver"
stop
success = .false.
return
endif
......@@ -137,7 +134,6 @@
call elpa2stage%set("gpu", 1, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set gpu"
stop
success = .false.
return
endif
......@@ -145,7 +141,6 @@
call elpa2stage%set("gpu", 0, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set gpu"
stop
success = .false.
return
endif
......@@ -158,7 +153,6 @@
call elpa2stage%set("qr", 1, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set qr"
stop
success = .false.
return
endif
......@@ -166,7 +160,6 @@
call elpa2stage%set("qr", 0, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set qr"
stop
success = .false.
return
endif
......@@ -179,7 +172,6 @@
call elpa2stage%set("real_kernel",THIS_ELPA_KERNEL_API, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set ELPA2 stage real_kernel"
stop
success = .false.
return
endif
......@@ -191,7 +183,6 @@
call elpa2stage%set("complex_kernel",THIS_ELPA_KERNEL_API, successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set ELPA2 stage complex_kernel"
stop
success = .false.
return
endif
......@@ -202,7 +193,6 @@
call elpa2stage%set("summary_timings", 1,successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot set summary_timings"
stop
success = .false.
return
endif
......@@ -211,7 +201,6 @@
call elpa2stage%solve(a(1:lda,1:matrixCols), ev, q(1:ldq,1:matrixCols), successInternal)
if (successInternal .ne. ELPA_OK) then
print *, "Cannot solve with ELPA 2stage"
stop
success = .false.
return
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