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
f3ab7cb6
Commit
f3ab7cb6
authored
Aug 20, 2019
by
ulrich_y
Browse files
Follow-up to
c1fba5b8
parent
c1fba5b8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
3 deletions
+2
-3
checks/generate.m
checks/generate.m
+0
-1
src/test.f90
src/test.f90
+2
-2
No files found.
checks/generate.m
View file @
f3ab7cb6
...
...
@@ -57,7 +57,6 @@ SetRoutine[gs_,name_,vars_]:=StringRiffle[Join[{
<>
ToString
@
N
@
Re
[(
-
1
)
^
(
1
/
3
)]
<>
","
<>
ToString
@
N
[
Im
[(
-
1
)
^
(
1
/
3
)]
,
10
]
<>
")"
,
" complex(kind=prec), parameter :: degm60 = ("
<>
ToString
@
N
@
Re
[
-
(
-
1
)
^
(
2
/
3
)]
<>
","
<>
ToString
@
N
[
Im
[
-
(
-
1
)
^
(
2
/
3
)]
,
10
]
<>
")"
,
" complex(kind=prec) d_qnan"
,
" complex(kind=prec) :: "
<>
StringRiffle
[
vars
,
","
]
,
" complex(kind=prec) :: args("
<>
ToString
@
Length
[
gs
]
<>
","
<>
ToString
@
Max
[
Length
/@
gs
]
<>
")"
,
" args = 1.e15"
,
...
...
src/test.f90
View file @
f3ab7cb6
...
...
@@ -386,8 +386,8 @@ CONTAINS
pargs
(:,:,
i
)
=
inimuone
(
cmplx
(
x
),
cmplx
(
y
))
enddo
cargs
(
1181
,:,:)
=
cargs
(
1181
,:,:)/
0
fargs
(
367
,:,:)
=
fargs
(
367
,:,:)/
0
cargs
(
1181
,:,:)
=
1.e15
fargs
(
367
,:,:)
=
1.e15
open
(
unit
=
9
,
file
=
"stats.txt"
)
...
...
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