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 ...@@ -55,7 +55,7 @@ PROGRAM TEST
#ifdef HAVE_GINAC #ifdef HAVE_GINAC
case('-long-test') case('-long-test')
tol = 8.0e-7 tol = 8.0e-7
call do_long_test call do_long_test(readint(trim(arg),i))
#else #else
case('-long-test') case('-long-test')
call iprint("Argument "//trim(arg)//" is not available, compile with --with-ginac", 2) call iprint("Argument "//trim(arg)//" is not available, compile with --with-ginac", 2)
...@@ -110,27 +110,27 @@ CONTAINS ...@@ -110,27 +110,27 @@ CONTAINS
print*,"Runs a set of tests for handyG" print*,"Runs a set of tests for handyG"
print*,"" print*,""
print*,"Possible tests are:" print*,"Possible tests are:"
print*," -mpl-test performs tests on the series expansion of" print*," -mpl-test performs tests on the series expansion of"
print*," convergent MPLs" print*," convergent MPLs"
print*," -gpl-test tests GPLs and their reduction. This includes" print*," -gpl-test tests GPLs and their reduction. This includes"
print*," real, ieps, and complex arguments" print*," real, ieps, and complex arguments"
print*," -chen-test compares all GPLs needed in [1811.06461] to" print*," -chen-test compares all GPLs needed in [1811.06461] to"
print*," reference values" print*," reference values"
#ifdef HAVE_GINAC #ifdef HAVE_GINAC
#ifdef HAVE_MM #ifdef HAVE_MM
print*," -ginac-tests compare all GPLs needed by [1801.01033]," print*," -ginac-tests compare all GPLs needed by [1801.01033],"
print*," [1709.07435], and [1806.08241] to GiNaC" print*," [1709.07435], and [1806.08241] to GiNaC"
print*," -speed-tests <n> compare the evaluation speed of the" print*," -speed-tests <n> compare the evaluation speed of the"
print*," aforementioned GPLs to GiNaC by averaging over" print*," aforementioned GPLs to GiNaC by averaging over"
print*," <n> evaluations" print*," <n> evaluations"
print*," -hw-tests compares `random' GPLs with high weight to GiNaC" print*," -hw-tests compares `random' GPLs with high weight to GiNaC"
#endif #endif
print*," -long-test compares many `random' GPLs with weight up to" print*," -long-test <seed> compares many `random' GPLs with weight up to"
print*," four to GiNaC" print*," four to GiNaC. Use <seed> as the random seed"
#endif #endif
#ifdef DEBUG #ifdef DEBUG
print*," -verb <n> sets the verbosity level to <n>" print*," -verb <n> sets the verbosity level to <n>"
print*," -report performs a coverage test" print*," -report performs a coverage test"
#endif #endif
end subroutine end subroutine
...@@ -732,7 +732,7 @@ CONTAINS ...@@ -732,7 +732,7 @@ CONTAINS
#endif #endif
SUBROUTINE DO_LONG_TEST SUBROUTINE DO_LONG_TEST(seed)
#if KINDREAL==16 #if KINDREAL==16
use ieps,only:inum2inum use ieps,only:inum2inum
#endif #endif
...@@ -754,10 +754,10 @@ CONTAINS ...@@ -754,10 +754,10 @@ CONTAINS
character(len=80) :: msg character(len=80) :: msg
maxd=0._prec maxd=0._prec
seed = 112312
tol = 0.01 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 basis(1:nzero) = izero
do i=nzero+1,nzero+nieps 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