Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
ff61bd20
Unverified
Commit
ff61bd20
authored
Mar 09, 2015
by
Andreas Marek
Browse files
Correct usage of MPI abort
In the test programms "MPI_ABORT" has been used incorrectly.
parent
22ea5a24
Changes
11
Hide whitespace changes
Inline
Side-by-side
src/elpa2.F90
View file @
ff61bd20
...
...
@@ -222,7 +222,8 @@ function solve_evp_real_2stage(na, nev, a, lda, ev, q, ldq, nblk, &
write
(
error_unit
,
*
)
"solve_evp_real_2stage: QR-decomposition: blocksize does not fit with matrixsize"
endif
print
*
,
"Do not use QR-decomposition for this matrix and blocksize."
call
mpi_abort
(
mpi_comm_world
,
0
,
mpierr
)
success
=
.false.
return
endif
endif
...
...
@@ -452,7 +453,6 @@ function solve_evp_complex_2stage(na, nev, a, lda, ev, q, ldq, nblk, &
write
(
error_unit
,
*
)
"The defaul kernel COMPLEX_ELPA_KERNEL_GENERIC will be used !"
endif
THIS_COMPLEX_ELPA_KERNEL
=
COMPLEX_ELPA_KERNEL_GENERIC
! call MPI_ABORT(mpi_comm_all, mpierr)
endif
! Choose bandwidth, must be a multiple of nblk, set to a value >= 32
...
...
test/read_real.F90
View file @
ff61bd20
...
...
@@ -178,12 +178,12 @@ program read_real
call
get_command_argument
(
1
,
filename
,
lenarg
,
info
)
if
(
info
/
=
0
)
then
write
(
error_unit
,
*
)
'Usage: test_real matrix_file'
call
mpi_abort
(
mpi_comm_world
,
0
,
mpierr
)
call
mpi_abort
(
mpi_comm_world
,
1
,
mpierr
)
endif
open
(
10
,
file
=
filename
,
action
=
'READ'
,
status
=
'OLD'
,
iostat
=
info
)
if
(
info
/
=
0
)
then
write
(
error_unit
,
*
)
'Error: Unable to open '
,
trim
(
filename
)
call
mpi_abort
(
mpi_comm_world
,
0
,
mpierr
)
call
mpi_abort
(
mpi_comm_world
,
1
,
mpierr
)
endif
endif
call
mpi_barrier
(
mpi_comm_world
,
mpierr
)
! Just for safety
...
...
test/test_complex.F90
View file @
ff61bd20
...
...
@@ -366,7 +366,7 @@ program test_complex
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_complex produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
if
(
myid
==
0
)
then
...
...
test/test_complex2.F90
View file @
ff61bd20
...
...
@@ -377,7 +377,7 @@ program test_complex2
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_complex_2stage produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
if
(
myid
==
0
)
print
*
,
'Time transform to tridi :'
,
time_evp_fwd
...
...
test/test_complex2_choose_kernel_with_api.F90
View file @
ff61bd20
...
...
@@ -389,7 +389,7 @@ program test_complex2
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_complex_2stage produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
if
(
myid
==
0
)
print
*
,
'Time transform to tridi :'
,
time_evp_fwd
...
...
test/test_complex2_default_kernel.F90
View file @
ff61bd20
...
...
@@ -390,7 +390,7 @@ program test_complex2
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_complex_2stage produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
if
(
myid
==
0
)
print
*
,
'Time transform to tridi :'
,
time_evp_fwd
...
...
test/test_real.F90
View file @
ff61bd20
...
...
@@ -365,7 +365,7 @@ program test_real
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_real produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
...
...
test/test_real2.F90
View file @
ff61bd20
...
...
@@ -396,7 +396,7 @@ program test_real2
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_real_2stage produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
if
(
myid
==
0
)
then
...
...
test/test_real2_choose_kernel_with_api.F90
View file @
ff61bd20
...
...
@@ -385,7 +385,7 @@ program test_real2
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_real_2stage produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
if
(
myid
==
0
)
then
...
...
test/test_real2_default_kernel.F90
View file @
ff61bd20
...
...
@@ -387,7 +387,7 @@ program test_real2
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_real_2stage produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
if
(
myid
==
0
)
then
...
...
test/test_real2_default_kernel_qr_decomposition.F90
View file @
ff61bd20
...
...
@@ -391,7 +391,7 @@ program test_real2
if
(
.not.
(
success
))
then
write
(
error_unit
,
*
)
"solve_evp_real_2stage produced an error! Aborting..."
call
MPI_ABORT
(
mpi_comm_world
,
mpierr
)
call
MPI_ABORT
(
mpi_comm_world
,
1
,
mpierr
)
endif
if
(
myid
==
0
)
then
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment