Commit d834b093 authored by Andreas Marek's avatar Andreas Marek

Abort test program gracefully

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