223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

avoid failing tests

This commit is contained in:
Martin Diehl 2022-12-08 20:40:20 +01:00
parent cca5d6d495
commit a3128d4021
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/tables.f90
View File

@ -115,19 +115,19 @@ subroutine selfTest()
integer :: i
type(tDict), pointer :: dict
type(tList), pointer :: l_x, l_y
real :: r
real(pReal) :: r
call random_number(r)
r = r-0.5_pReal
t = table(x+r,y)
do i = 1, size(x_eval)
if (dNeq(y_true(i),t%at(x_eval(i)+r))) error stop 'table eval/values'
if (dNeq(y_true(i),t%at(x_eval(i)+r),1.0e-9_pReal)) error stop 'table eval/values'
end do
l_x => YAML_parse_str_asList('[1, 2, 3, 4]')
l_y => YAML_parse_str_asList('[1, 2, 2, 1]')
l_x => YAML_parse_str_asList('[1, 2, 3, 4]'//IO_EOL)
l_y => YAML_parse_str_asList('[1, 2, 2, 1]'//IO_EOL)
allocate(dict)
call dict%set('t',l_x)
call dict%set('T',l_y)