Commit 39767146 authored by ulrich_y's avatar ulrich_y

Specify precision for F.18

parent 998596e7
......@@ -449,7 +449,7 @@ CONTAINS
ref = (0.0135493735561310633082925053080300174678_prec,+0.01851696361979639851211857931403696163_prec)
call test_one_flat( (/ (0._prec,0.), (0._prec,0.), (1.0_prec,0._prec), (0.1_prec,-0.1_prec), (0.15_prec,0._prec) /) , ref, 'F.17')
ref = (-2.41176903997917647290181947143140323970805e-4_prec,0.00129690184788114442363777169655122)
ref = (-2.41176903997917647290181947143140323970805e-4_prec,0.00129690184788114442363777169655122_prec)
call test_one_flat( (/ (0._prec,0.), (1._prec,0.), (0.5_prec,-0.1_prec), (-1.3_prec,10.2_prec), (0.4_prec,0._prec) /) , ref, 'F.18')
ref = (-0.003113755848404291707649322614093090379815_prec,-4.6914973893242872720303973859400498154E-4_prec)
......
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