Correct usage of MPI abort

In the test programms "MPI_ABORT" has been used incorrectly.

src/elpa2.F90

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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