Commit 0417cb1d authored by Pavel Kus's avatar Pavel Kus

minor fixes

parent f129a80a
......@@ -100,8 +100,10 @@
success = .true.
if (elpa_init(20170403) /= ELPA_OK) then
print *, "ELPA API version not supported"
success = .false.
error stop "ELPA API version not supported"
stop
return
endif
nev = 10
......
......@@ -108,8 +108,10 @@
success = .true.
if (elpa_init(20170403) /= ELPA_OK) then
print *, "ELPA API version not supported"
success = .false.
error stop "ELPA API version not supported"
stop
return
endif
nev = 10
......
......@@ -121,8 +121,10 @@
!l_cols = local_index(ncb, my_pcol, np_cols, nblk, -1) ! Local cols of b
if (elpa_init(20170403) /= ELPA_OK) then
print *, "ELPA API version not supported"
success = .false.
error stop "ELPA API version not supported"
stop
return
endif
nev = 10
......
......@@ -88,8 +88,10 @@
success = .false.
if (elpa_init(20170403) /= ELPA_OK) then
print *, "ELPA API version not supported"
success = .false.
error stop "ELPA API version not supported"
stop
return
endif
elpaAPI = elpa_create(na, nev, ldq, matrixCols, nblk, successInternal)
......
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