Commit 46c84481 authored by ulrich_y's avatar ulrich_y

Added seed as option for long test

parent 01c4b239
......@@ -55,7 +55,7 @@ PROGRAM TEST
#ifdef HAVE_GINAC
case('-long-test')
tol = 8.0e-7
call do_long_test
call do_long_test(readint(trim(arg),i))
#else
case('-long-test')
call iprint("Argument "//trim(arg)//" is not available, compile with --with-ginac", 2)
......@@ -110,27 +110,27 @@ CONTAINS
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"
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"
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"
print*," -long-test <seed> compares many `random' GPLs with weight up to"
print*," four to GiNaC. Use <seed> as the random seed"
#endif
#ifdef DEBUG
print*," -verb <n> sets the verbosity level to <n>"
print*," -report performs a coverage test"
print*," -verb <n> sets the verbosity level to <n>"
print*," -report performs a coverage test"
#endif
end subroutine
......@@ -732,7 +732,7 @@ CONTAINS
#endif
SUBROUTINE DO_LONG_TEST
SUBROUTINE DO_LONG_TEST(seed)
#if KINDREAL==16
use ieps,only:inum2inum
#endif
......@@ -754,10 +754,10 @@ CONTAINS
character(len=80) :: msg
maxd=0._prec
seed = 112312
tol = 0.01
open(unit=9, action='write', form='unformatted', file="long-test.txt")
write (msg, "(A10,I0.5,A4)") "long-test-", seed, ".bin"
open(unit=9, action='write', form='unformatted', file=trim(msg))
basis(1:nzero) = izero
do i=nzero+1,nzero+nieps
......
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