Commit 495db217 authored by Andreas Marek's avatar Andreas Marek
Browse files

Do not run 'banded' test if nblk=1 (would be already tridiagonal)

parent eeed46a9
......@@ -152,7 +152,12 @@ program test_complex2_double_banded
#define DOUBLE_PRECISION_COMPLEX 1
call read_input_parameters(na, nev, nblk, write_to_file)
!-------------------------------------------------------------------------------
if (nblk .eq. 1) then
stop 77
endif
!-------------------------------------------------------------------------------
! MPI Initialization
call setup_mpi(myid, nprocs)
......
......@@ -148,6 +148,10 @@ program test_real2_double_banded
call read_input_parameters(na, nev, nblk, write_to_file)
if (nblk .eq. 1) then
stop 77
endif
!-------------------------------------------------------------------------------
! MPI Initialization
call setup_mpi(myid, nprocs)
......
......@@ -152,7 +152,11 @@ program test_complex2_single_banded
#define DOUBLE_PRECISION_COMPLEX 1
call read_input_parameters(na, nev, nblk, write_to_file)
!-------------------------------------------------------------------------------
if (nblk .eq. 1) then
stop 77
endif
!-------------------------------------------------------------------------------
! MPI Initialization
call setup_mpi(myid, nprocs)
......
......@@ -142,6 +142,9 @@ program test_real2_single_banded
#define DOUBLE_PRECISION_REAL 1
call read_input_parameters(na, nev, nblk, write_to_file)
if (nblk .eq. 1) then
stop 77
endif
!-------------------------------------------------------------------------------
! MPI Initialization
......
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