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)
......@@ -125,8 +125,8 @@ CONTAINS
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>"
......@@ -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