Commit 4d841334 authored by Andreas Marek's avatar Andreas Marek
Browse files

Abort if GPUs are requested but not detected

parent 3be90dbf
...@@ -637,7 +637,10 @@ function elpa_solve_evp_real_1stage_double(na, nev, a, lda, ev, q, ldq, nblk, & ...@@ -637,7 +637,10 @@ function elpa_solve_evp_real_1stage_double(na, nev, a, lda, ev, q, ldq, nblk, &
cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice() cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice()
cudaHostRegisterPortable = cuda_hostRegisterPortable() cudaHostRegisterPortable = cuda_hostRegisterPortable()
cudaHostRegisterMapped = cuda_hostRegisterMapped() cudaHostRegisterMapped = cuda_hostRegisterMapped()
else
print *,"GPUs are requested but not detected! Aborting..."
success = .false.
return
endif endif
endif endif
else else
...@@ -813,7 +816,10 @@ function elpa_solve_evp_real_1stage_single(na, nev, a, lda, ev, q, ldq, nblk, ma ...@@ -813,7 +816,10 @@ function elpa_solve_evp_real_1stage_single(na, nev, a, lda, ev, q, ldq, nblk, ma
cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice() cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice()
cudaHostRegisterPortable = cuda_hostRegisterPortable() cudaHostRegisterPortable = cuda_hostRegisterPortable()
cudaHostRegisterMapped = cuda_hostRegisterMapped() cudaHostRegisterMapped = cuda_hostRegisterMapped()
else
print *,"GPUs are requested but not detected! Aborting..."
success = .false.
return
endif endif
endif endif
else else
...@@ -991,7 +997,10 @@ function elpa_solve_evp_complex_1stage_double(na, nev, a, lda, ev, q, ldq, nblk, ...@@ -991,7 +997,10 @@ function elpa_solve_evp_complex_1stage_double(na, nev, a, lda, ev, q, ldq, nblk,
cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice() cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice()
cudaHostRegisterPortable = cuda_hostRegisterPortable() cudaHostRegisterPortable = cuda_hostRegisterPortable()
cudaHostRegisterMapped = cuda_hostRegisterMapped() cudaHostRegisterMapped = cuda_hostRegisterMapped()
else
print *,"GPUs are requested but not detected! Aborting..."
success = .false.
return
endif endif
endif endif
else else
...@@ -1179,7 +1188,10 @@ function elpa_solve_evp_complex_1stage_single(na, nev, a, lda, ev, q, ldq, nblk, ...@@ -1179,7 +1188,10 @@ function elpa_solve_evp_complex_1stage_single(na, nev, a, lda, ev, q, ldq, nblk,
cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice() cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice()
cudaHostRegisterPortable = cuda_hostRegisterPortable() cudaHostRegisterPortable = cuda_hostRegisterPortable()
cudaHostRegisterMapped = cuda_hostRegisterMapped() cudaHostRegisterMapped = cuda_hostRegisterMapped()
else
print *,"GPUs are requested but not detected! Aborting..."
success = .false.
return
endif endif
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