Commit 7ad5f7a5 authored by ulrich_y's avatar ulrich_y

Don't use nan for empty fields in test

parent 495524e8
......@@ -60,9 +60,7 @@ SetRoutine[gs_,name_,vars_]:=StringRiffle[Join[{
" complex(kind=prec) d_qnan",
" complex(kind=prec) :: "<>StringRiffle[vars,","],
" complex(kind=prec) :: args("<>ToString@Length[gs]<>","<>ToString@Max[Length/@gs]<>")",
" d_qnan = 0.",
" d_qnan = d_qnan/0",
" args = D_QNAN",
" args = 1.e15",
""
},SetBody[gs],{
" END FUNCTION",
......
......@@ -208,7 +208,7 @@ CONTAINS
evalt =0.
do i=1,size(arr)
if (arr(i) .ne. arr(i)) then ! isnan?
if (abs(arr(i)) .gt. 1.e10) then ! isnan?
l = i-1
goto 123
endif
......
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