$title 'Test correctness of arctan intrinsic' (FNATAN,SEQ=185)

$include fnset_x.inc

$gdxIn fnatan
$load aeps reps0 reps1 reps2 relToInput T data
$gdxIn

loop {T,
  data(T,  'f')    = arctan.value (data(T,'x'));
  data(T, 'fx')    = arctan.grad  (data(T,'x'));
  data(T,'fxx')    = arctan.hess  (data(T,'x'));
  data(T, 'rc')    = mathlastrc;
  data(T, 'ec')    = mathlastec;
};

$include fntest_x.inc