Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
H
handyG
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Analytics
Analytics
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Commits
Open sidebar
McMule
handyG
Commits
eac15ea1
Commit
eac15ea1
authored
Oct 03, 2019
by
ulrich_y
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Added help to test
parent
eb58b347
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
45 additions
and
6 deletions
+45
-6
checks/test.f90
checks/test.f90
+45
-6
No files found.
checks/test.f90
View file @
eac15ea1
...
...
@@ -44,9 +44,9 @@ PROGRAM TEST
case
(
'-ginac-tests'
)
tol
=
8.0e-7
call
do_ginac_tests
case
(
'-speed-tests'
)
case
(
'-speed-tests'
)
call
do_timing_tests
(
readint
(
trim
(
arg
),
i
))
case
(
'-hw-tests'
)
case
(
'-hw-tests'
)
tol
=
8.0e-7
call
do_high_weight_tests
#else
...
...
@@ -55,17 +55,16 @@ PROGRAM TEST
#endif
#ifdef HAVE_GINAC
case
(
'-long-test'
)
case
(
'-long-test'
)
tol
=
8.0e-7
call
do_long_test
#else
case
(
'-long-test'
)
call
errprint
(
"Argument "
//
trim
(
arg
)//
" is not available, compile with --with-ginac"
)
#endif
case
(
'-report'
)
#ifdef DEBUG
case
(
'-report'
)
verb
=
1000
#endif
tol
=
zero
*
1.e5_prec
call
do_MPL_tests
call
do_GPL_tests
...
...
@@ -73,10 +72,13 @@ PROGRAM TEST
tests_successful
=
tests_successful
.and.
do_chen_test
()
#if defined(HAVE_GINAC) && defined(HAVE_MM)
call
do_ginac_tests
#endif
#endif
case
(
'--help'
,
'--h'
,
'-h'
,
'-help'
)
call
printhelp
case
default
call
errprint
(
"Unknown argument "
//
trim
(
arg
))
call
errprint
(
"Unknown argument "
//
trim
(
arg
)
//
". Try -h to get help"
)
end
select
i
=
i
+1
...
...
@@ -100,6 +102,43 @@ CONTAINS
stop
1
end
subroutine
subroutine
printhelp
character
(
len
=
32
)
::
arg
call
get_command_argument
(
0
,
arg
)
#ifdef DEBUG
print
*
,
"Usage: "
//
trim
(
arg
)//
" [-verb <n>] [opts]"
#else
print
*
,
"Usage: "
//
trim
(
arg
)//
" [opts]"
#endif
print
*
,
"Runs a set of tests for handyG"
print
*
,
""
print
*
,
"Possible tests are:"
print
*
,
" -mpl-test performs tests on the series expansion of"
print
*
,
" convergent MPLs"
print
*
,
" -gpl-test tests GPLs and their reduction. This includes"
print
*
,
" real, ieps, and complex arguments"
print
*
,
" -chen-test compares all GPLs needed in [1811.06461] to"
print
*
,
" reference values"
#ifdef HAVE_GINAC
#ifdef HAVE_MM
print
*
,
" -ginac-tests compare all GPLs needed by [1801.01033],"
print
*
,
" [1709.07435], and [1806.08241] to GiNaC"
print
*
,
" -speed-tests <n> compare the evaluation speed of the"
print
*
,
" aforementioned GPLs to GiNaC by averaging over"
print
*
,
" <n> evaluations"
print
*
,
" -hw-tests compares `random' GPLs with high weight to GiNaC"
#endif
print
*
,
" -long-test compares many `random' GPLs with weight up to"
print
*
,
" four to GiNaC"
#endif
#ifdef DEBUG
print
*
,
" -verb <n> sets the verbosity level to <n>"
print
*
,
" -report performs a coverage test"
#endif
end
subroutine
function
readint
(
prev
,
i
)
integer
i
,
readint
,
st
character
(
len
=
32
)
::
arg
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment