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
elpa
elpa
Commits
fe6f28a3
Commit
fe6f28a3
authored
Jul 18, 2017
by
Andreas Marek
Browse files
Cleanup and typo
parent
8ac91762
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
test/Fortran/test.F90
View file @
fe6f28a3
...
...
@@ -179,7 +179,7 @@ program test
end
if
end
if
#endif
if
(
myid
==
0
)
then
print
'((a,i0))'
,
'Matrix size: '
,
na
print
'((a,i0))'
,
'Num eigenvectors: '
,
nev
...
...
@@ -316,7 +316,7 @@ program test
if
(
myid
==
0
)
print
*
,
elpa_int_value_to_string
(
KERNEL_KEY
,
kernel
),
" kernel"
call
e
%
timer_start
(
elpa_int_value_to_string
(
KERNEL_KEY
,
kernel
))
#else
#else
/* ALL_KERNELS */
#ifdef __EIGENVECTORS
call
e
%
timer_start
(
"e%eigenvectors()"
)
...
...
@@ -359,6 +359,7 @@ program test
if
(
myid
.eq.
0
)
then
#ifdef TEST_SOLVER_2STAGE
call
e
%
print_times
(
"e%eigenvectors()"
)
call
e
%
print_times
(
elpa_int_value_to_string
(
KERNEL_KEY
,
kernel
))
#else
#ifdef __EIGENVECTORS
...
...
@@ -378,7 +379,7 @@ program test
status
=
check_correctness_analytic
(
na
,
nev
,
ev
,
z
,
nblk
,
myid
,
np_rows
,
np_cols
,
my_prow
,
my_pcol
)
#else
status
=
check_correctness
(
na
,
nev
,
as
,
z
,
ev
,
sc_desc
,
myid
)
#endif
#endif
if
(
status
/
=
0
)
then
if
(
myid
==
0
)
print
*
,
"Result incorrect!"
call
exit
(
status
)
...
...
@@ -398,7 +399,7 @@ program test
! sort analytic solution:
! this hack is nei
h
ter elegant, nor optimized: for huge matrixes it might be expensive
! this hack is neit
h
er elegant, nor optimized: for huge matrixes it might be expensive
! a proper sorting algorithmus might be implemented here
tmp
=
minval
(
ev_analytic
)
...
...
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