Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
cdo
Commits
8f1a31e9
Commit
8f1a31e9
authored
Jan 04, 2011
by
Cedrick Ansorge
Browse files
No commit message
No commit message
parent
a17e53e2
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/EOFs.c
View file @
8f1a31e9
...
...
@@ -119,8 +119,6 @@ void *EOFs(void * argument)
cdoWarning
(
" - 'danielson_lanzcos' for the D/L algorithm"
);
}
streamID1
=
streamOpenRead
(
cdoStreamName
(
0
));
if
(
streamID1
<
0
)
cdiError
(
streamID1
,
"Open failed on %s"
,
cdoStreamName
(
0
));
vlistID1
=
streamInqVlist
(
streamID1
);
...
...
@@ -541,9 +539,9 @@ void *EOFs(void * argument)
/* NOW: cov contains the eigenvectors, eigv the eigenvalues */
if
(
cdoTimer
)
timer_start
(
timer_post
);
for
(
i
=
0
;
i
<
n
;
i
++
)
for
(
i
=
0
;
i
<
n
;
i
++
)
eigenvalues
[
varID
][
levelID
][
i
].
ptr
[
0
]
=
eigv
[
i
]
*
sum_w
;
for
(
i
=
0
;
i
<
n_eig
;
i
++
)
{
if
(
grid_space
)
...
...
Write
Preview
Supports
Markdown
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