Commit 16f52e50 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

No command line arguments for 'test_real2_default_kernel_qr_decomposition'

parent ef2a1a5e
...@@ -224,7 +224,7 @@ elpa2_test_real_default_kernel.sh: ...@@ -224,7 +224,7 @@ elpa2_test_real_default_kernel.sh:
chmod +x elpa2_test_real_default_kernel.sh chmod +x elpa2_test_real_default_kernel.sh
elpa2_test_real_default_kernel_qr_decomposition.sh: elpa2_test_real_default_kernel_qr_decomposition.sh:
echo 'mpiexec -n 2 ./elpa2_test_real_default_kernel_qr_decomposition@SUFFIX@ $$TEST_FLAGS' > elpa2_test_real_default_kernel_qr_decomposition.sh echo 'mpiexec -n 2 ./elpa2_test_real_default_kernel_qr_decomposition@SUFFIX@' > elpa2_test_real_default_kernel_qr_decomposition.sh
chmod +x elpa2_test_real_default_kernel_qr_decomposition.sh chmod +x elpa2_test_real_default_kernel_qr_decomposition.sh
elpa2_test_real_choose_kernel_with_api.sh: elpa2_test_real_choose_kernel_with_api.sh:
......
...@@ -137,15 +137,18 @@ program test_real2 ...@@ -137,15 +137,18 @@ program test_real2
#ifndef HAVE_ISO_FORTRAN_ENV #ifndef HAVE_ISO_FORTRAN_ENV
integer, parameter :: error_unit = 6 integer, parameter :: error_unit = 6
#endif #endif
logical :: success logical :: success
success = .true. success = .true.
write_to_file = .false. write_to_file = .false.
! read input parameters if they are provided
call read_input_parameters(na, nev, nblk, write_to_file) if (COMMAND_ARGUMENT_COUNT() /= 0) then
write(error_unit,*) "This program does not support any command-line arguments"
stop 1
endif
nblk = 2 nblk = 2
na = 4000 na = 4000
...@@ -206,9 +209,9 @@ program test_real2 ...@@ -206,9 +209,9 @@ program test_real2
print_max_allocated_memory=.true.) print_max_allocated_memory=.true.)
call timer%enable() call timer%enable()
call timer%start("program") call timer%start("program")
#endif #endif
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! Selection of number of processor rows/columns ! Selection of number of processor rows/columns
......
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