Commit 02ad07fc authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

Change 'stop' to 'error stop', for the moment

In principle we don't want any stop statements in the library, but for now its
better to abort with an error than to abort successfully
parent 07086450
......@@ -287,7 +287,7 @@ contains
endif
if (nblk .ne. 128) then
print *,"At the moment GPU version needs blocksize 128"
stop
error stop
endif
! set the neccessary parameters
......@@ -636,7 +636,7 @@ contains
endif
if (nblk .ne. 128) then
print *,"At the moment GPU version needs blocksize 128"
stop
error stop
endif
! some temporarilly checks until single precision works with all kernels
......@@ -944,7 +944,7 @@ function solve_evp_complex_2stage_single(na, nev, a, lda, ev, q, ldq, nblk, &
endif
if (nblk .ne. 128) then
print *,"At the moment GPU version needs blocksize 128"
stop
error stop
endif
! set the neccessary parameters
......@@ -1263,7 +1263,7 @@ function solve_evp_complex_2stage_single(na, nev, a, lda, ev, q, ldq, nblk, &
endif
if (nblk .ne. 128) then
print *,"At the moment GPU version needs blocksize 128"
stop
error stop
endif
! set the neccessary parameters
......
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