Commit d834b093 authored by Andreas Marek's avatar Andreas Marek

Abort test program gracefully

parent b2e35cae
......@@ -139,6 +139,10 @@ program test_all_real
nev = input_options%nev
nblk = input_options%nblk
if (input_options%justHelpMessage) then
call EXIT(0)
endif
!-------------------------------------------------------------------------------
! MPI Initialization
......
......@@ -53,7 +53,7 @@ module mod_read_input_parameters
integer :: this_real_kernel, this_complex_kernel
logical :: realKernelIsSet, complexKernelIsSet
integer :: useQrIsSet, useGPUIsSet
logical :: doSolveTridi, do1stage, do2stage
logical :: doSolveTridi, do1stage, do2stage, justHelpMessage
end type
interface read_input_parameters
......@@ -85,6 +85,8 @@ module mod_read_input_parameters
print *," [--output_eigenvectors] [--real-kernel=name_of_kernel]"
print *," [--complex-kernel=name_of_kernel] [--use-gpu={0|1}]"
print *," [--use-qr={0,1}] [--tests={all|solve-tridi|1stage|2stage}]"
input_options%justHelpMessage=.true.
return
endif
......@@ -208,6 +210,8 @@ module mod_read_input_parameters
input_options%do2Stage = .true.
input_options%doSolveTridi = .true.
input_options%justHelpMessage=.false.
! test na=1500 nev=50 nblk=16 --help --kernel --output_eigenvectors --output_eigenvalues
if (COMMAND_ARGUMENT_COUNT() .gt. 8) then
write(error_unit, '(a,i0,a)') "Invalid number (", COMMAND_ARGUMENT_COUNT(), ") of command line arguments!"
......
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