Commit e4c7ef66 authored by ulrich_y's avatar ulrich_y

Changed caching and evaluation options for some tests

parent cd3ea4cf
......@@ -2,11 +2,13 @@ module chenreftest
contains
function test(z,ref,test_id)
use globals, only: prec
use maths_functions, only: clearcache
use ttools
implicit none
complex(kind=prec) :: z(:), ref
character(len=*) :: test_id
logical test
call clearcache
call test_one_flat(z,ref,test_id, test)
end function
......
......@@ -36,6 +36,7 @@ PROGRAM TEST
call do_GPL_tests
case('-chen-test')
tol = 8.0e-7
call set_options(mpldel=1e-10_prec, lidel=1e-10_prec)
tests_successful = tests_successful .and. do_chen_test()
#if defined(HAVE_GINAC) && defined(HAVE_MM)
......@@ -455,6 +456,7 @@ CONTAINS
ref = (-0.003113755848404291707649322614093090379815_prec,-4.6914973893242872720303973859400498154E-4_prec)
call test_one_flat( (/ (0._prec,0.), (1._prec,0.), (0.1_prec,-0.1_prec), (-1.3_prec,10.2_prec), (0.4_prec,0._prec) /) , ref, 'F.19')
call clearcache
ref = (0.6492441149301267712849185177612894261440132_prec,2.76692869057070821067245201199781913943_prec)
call iprint(' testing GPL G.1 ...',-1)
......
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