Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
McMule
handyG
Commits
7ad5f7a5
Commit
7ad5f7a5
authored
Aug 19, 2019
by
ulrich_y
Browse files
Don't use nan for empty fields in test
parent
495524e8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
4 deletions
+2
-4
checks/generate.m
checks/generate.m
+1
-3
src/test.f90
src/test.f90
+1
-1
No files found.
checks/generate.m
View file @
7ad5f7a5
...
...
@@ -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"
,
...
...
src/test.f90
View file @
7ad5f7a5
...
...
@@ -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
...
...
ulrich_y
@ulrich_y
mentioned in commit
c1fba5b8
·
Aug 23, 2019
mentioned in commit
c1fba5b8
mentioned in commit c1fba5b86ddd0c387ebdba4c792a4cb81b22adae
Toggle commit list
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment