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
2e908e06
Commit
2e908e06
authored
Aug 10, 2016
by
Andreas Marek
Browse files
Merge branch 'bugfixes_current_release'
parents
8fe80381
b28f067d
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
test/Fortran/test_cholesky_complex.F90
View file @
2e908e06
...
...
@@ -265,7 +265,7 @@ program test_cholesky
! tmp1 = a**H
#ifdef WITH_MPI
call
pztranc
(
na
,
na
,
1.0_rk
,
a
,
1
,
1
,
sc_desc
,
CZERO
,
tmp1
,
1
,
1
,
sc_desc
)
call
pztranc
(
na
,
na
,
CONE
,
a
,
1
,
1
,
sc_desc
,
CZERO
,
tmp1
,
1
,
1
,
sc_desc
)
#else
tmp1
=
transpose
(
conjg
(
a
))
#endif
...
...
@@ -294,7 +294,7 @@ program test_cholesky
print
*
,
" Maximum error of result: "
,
normmax
endif
if
(
normmax
.gt.
5e-11
)
then
if
(
normmax
.gt.
5e-11
_rk
)
then
status
=
1
endif
...
...
test/Fortran/test_invert_trm_complex.F90
View file @
2e908e06
...
...
@@ -320,7 +320,7 @@ program test_invert_trm
print
*
,
" Maximum error of result: "
,
normmax
endif
if
(
normmax
.gt.
5e-11
)
then
if
(
normmax
.gt.
5e-11
_rk
)
then
status
=
1
endif
...
...
test/Fortran/test_transpose_multiply_complex.F90
View file @
2e908e06
...
...
@@ -253,7 +253,7 @@ program test_transpose_multiply
! tmp1 = a**T
#ifdef WITH_MPI
call
pztranc
(
na
,
na
,
1.0_rk
,
a
,
1
,
1
,
sc_desc
,
CZERO
,
tmp1
,
1
,
1
,
sc_desc
)
call
pztranc
(
na
,
na
,
CONE
,
a
,
1
,
1
,
sc_desc
,
CZERO
,
tmp1
,
1
,
1
,
sc_desc
)
#else
tmp1
=
transpose
(
conjg
(
a
))
#endif
...
...
@@ -282,7 +282,7 @@ program test_transpose_multiply
print
*
,
" Maximum error of result: "
,
normmax
endif
if
(
normmax
.gt.
5e-11
)
then
if
(
normmax
.gt.
5e-11
_rk
)
then
status
=
1
endif
...
...
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