Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
elpa
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
11
Issues
11
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Environments
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
elpa
elpa
Commits
4d712119
Commit
4d712119
authored
Jul 08, 2016
by
Andreas Marek
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix single-precision tests after merge
parent
45d05d1b
Changes
5
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
22 additions
and
17 deletions
+22
-17
Makefile.am
Makefile.am
+8
-7
src/elpa1_auxiliary.F90
src/elpa1_auxiliary.F90
+2
-1
src/elpa_c_interface.F90
src/elpa_c_interface.F90
+9
-6
test/Fortran/test_complex2_default_single.F90
test/Fortran/test_complex2_default_single.F90
+1
-1
test/Fortran/test_toeplitz_single.F90
test/Fortran/test_toeplitz_single.F90
+2
-2
No files found.
Makefile.am
View file @
4d712119
...
...
@@ -331,7 +331,8 @@ noinst_PROGRAMS += \
elpa2_test_real_single_precision@SUFFIX@
\
elpa2_test_real_default_single_precision@SUFFIX@
\
elpa2_test_real_qr_single_precision@SUFFIX@
\
elpa2_test_real_api_single_precision@SUFFIX@
elpa2_test_real_api_single_precision@SUFFIX@
\
elpa1_real_toeplitz_single_precision@SUFFIX@
endif
if
WITH_GPU_VERSION
...
...
@@ -470,7 +471,7 @@ elpa2_test_real_single_precision@SUFFIX@_LDADD = $(build_lib)
elpa2_test_real_single_precision@SUFFIX@
_FCFLAGS
=
$(AM_FCFLAGS)
@FC_MODOUT@private_modules @FC_MODINC@private_modules
EXTRA_elpa2_test_real_single_precision@SUFFIX@
_DEPENDENCIES
=
test
/Fortran/elpa_print_headers.X90
elpa1_real_toeplitz_single_precision@SUFFIX@
_SOURCES
=
test
/Fortran/test_toeplitz_single
_precision
.F90
elpa1_real_toeplitz_single_precision@SUFFIX@
_SOURCES
=
test
/Fortran/test_toeplitz_single.F90
elpa1_real_toeplitz_single_precision@SUFFIX@
_LDADD
=
$(build_lib)
elpa1_real_toeplitz_single_precision@SUFFIX@
_FCFLAGS
=
$(AM_FCFLAGS)
@FC_MODOUT@private_modules @FC_MODINC@private_modules
EXTRA_elpa1_real_toeplitz_single_precision@SUFFIX@
_DEPENDENCIES
=
test
/Fortran/elpa_print_headers.X90
...
...
@@ -571,17 +572,17 @@ if WANT_SINGLE_PRECISION_REAL
check_SCRIPTS
+=
\
elpa1_test_real_single_precision@SUFFIX@.sh
\
elpa2_test_real_single_precision@SUFFIX@.sh
\
elpa2_test_real_default_
kernel_
single_precision@SUFFIX@.sh
\
elpa2_test_real_
default_kernel_qr_decomposition
_single_precision@SUFFIX@.sh
\
elpa2_test_real_
choose_kernel_with_
api_single_precision@SUFFIX@.sh
elpa2_test_real_default_single_precision@SUFFIX@.sh
\
elpa2_test_real_
qr
_single_precision@SUFFIX@.sh
\
elpa2_test_real_api_single_precision@SUFFIX@.sh
endif
if
WANT_SINGLE_PRECISION_COMPLEX
check_SCRIPTS
+=
\
elpa1_test_complex_single_precision@SUFFIX@.sh
\
elpa2_test_complex_single_precision@SUFFIX@.sh
\
elpa2_test_complex_default_
kernel_
single_precision@SUFFIX@.sh
\
elpa2_test_complex_
choose_kernel_with_
api_single_precision@SUFFIX@.sh
elpa2_test_complex_default_single_precision@SUFFIX@.sh
\
elpa2_test_complex_api_single_precision@SUFFIX@.sh
endif
if
WITH_GPU_VERSION
...
...
src/elpa1_auxiliary.F90
View file @
4d712119
...
...
@@ -3376,7 +3376,8 @@ module elpa1_auxiliary
!> \param wantDebug logical, give more debug information if .true.
!> \result success logical, .true. on success, else .false.
function
elpa_solve_tridi_single
(
na
,
nev
,
d
,
e
,
q
,
ldq
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
function
elpa_solve_tridi_single
(
na
,
nev
,
d
,
e
,
q
,
ldq
,
nblk
,
matrixCols
,
mpi_comm_rows
,
&
mpi_comm_cols
,
wantDebug
)
result
(
success
)
use
elpa1_compute
,
solve_tridi_single_private
=>
solve_tridi_single
use
precision
...
...
src/elpa_c_interface.F90
View file @
4d712119
...
...
@@ -786,7 +786,8 @@
wantDebugFortran
=
.false.
endif
successFortran
=
elpa_solve_tridi_float
(
na
,
nev
,
d
,
e
,
q
,
ldq
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebugFortran
)
successFortran
=
elpa_solve_tridi_single
(
na
,
nev
,
d
,
e
,
q
,
ldq
,
nblk
,
matrixCols
,
mpi_comm_rows
,
&
mpi_comm_cols
,
wantDebugFortran
)
if
(
successFortran
)
then
success
=
1
...
...
@@ -901,7 +902,7 @@
nblk
,
mpi_comm_rows
,
mpi_comm_cols
,
c
,
ldc
,
ldcCols
)
&
bind
(
C
,
name
=
"elpa_mult_at_b_real_float"
)
result
(
success
)
use
,
intrinsic
::
iso_c_binding
use
elpa1_auxiliary
,
only
:
elpa_mult_at_b_real_
float
use
elpa1_auxiliary
,
only
:
elpa_mult_at_b_real_
single
implicit
none
...
...
@@ -916,7 +917,7 @@
#endif
logical
::
successFortran
successFortran
=
elpa_mult_at_b_real_
float
(
uplo_a
,
uplo_c
,
na
,
ncb
,
a
,
lda
,
ldaCols
,
b
,
ldb
,
ldbCols
,
&
successFortran
=
elpa_mult_at_b_real_
single
(
uplo_a
,
uplo_c
,
na
,
ncb
,
a
,
lda
,
ldaCols
,
b
,
ldb
,
ldbCols
,
&
nblk
,
mpi_comm_rows
,
mpi_comm_cols
,
c
,
ldc
,
ldcCols
)
if
(
successFortran
)
then
...
...
@@ -1051,7 +1052,7 @@
#endif
logical
::
successFortran
successFortran
=
elpa_mult_ah_b_complex_
float
(
uplo_a
,
uplo_c
,
na
,
ncb
,
a
,
lda
,
ldaCols
,
b
,
ldb
,
ldbCols
,
&
successFortran
=
elpa_mult_ah_b_complex_
single
(
uplo_a
,
uplo_c
,
na
,
ncb
,
a
,
lda
,
ldaCols
,
b
,
ldb
,
ldbCols
,
&
nblk
,
mpi_comm_rows
,
mpi_comm_cols
,
c
,
ldc
,
ldcCols
)
if
(
successFortran
)
then
...
...
@@ -1235,7 +1236,8 @@
!c> */
!c> int elpa_invert_trm_complex_single(int na, complex *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
function
elpa_invert_trm_complex_wrapper_single
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
&
function
elpa_invert_trm_complex_wrapper_single
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
&
mpi_comm_cols
,
wantDebug
)
result
(
success
)
&
bind
(
C
,
name
=
"elpa_invert_trm_complex_single"
)
use
,
intrinsic
::
iso_c_binding
...
...
@@ -1445,7 +1447,8 @@
!c> */
!c> int elpa_cholesky_complex_single(int na, complex *a, int lda, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int wantDebug);
function
elpa_cholesky_complex_wrapper_single
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
&
function
elpa_cholesky_complex_wrapper_single
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
&
wantDebug
)
result
(
success
)
&
bind
(
C
,
name
=
"elpa_cholesky_complex_single"
)
use
,
intrinsic
::
iso_c_binding
...
...
test/Fortran/test_complex2_default_single.F90
View file @
4d712119
...
...
@@ -82,7 +82,7 @@ program test_complex2_default_kernel_single_precision
use
ELPA2
use
mod_check_for_gpu
,
only
:
check_for_gpu
use
elpa_utilities
,
only
:
error_unit
use
elpa2_utilities
#ifdef WITH_OPENMP
use
test_util
#endif
...
...
test/Fortran/test_toeplitz_single.F90
View file @
4d712119
...
...
@@ -106,7 +106,7 @@ program test_solve_tridi_single
logical
::
wantDebug
real
(
kind
=
rk4
),
parameter
::
pi
=
3.141592653589793238462643383279_rk
real
(
kind
=
rk4
),
parameter
::
pi
=
3.141592653589793238462643383279_rk
4
integer
(
kind
=
ik
)
::
iseed
(
4096
)
! Random seed, size should be sufficient for every generator
...
...
@@ -371,7 +371,7 @@ program test_solve_tridi_single
allocate
(
tmp1
(
na_rows
,
na_cols
))
allocate
(
tmp2
(
na_rows
,
na_cols
))
status
=
check_correctness
(
na
,
nev
,
as
,
a
,
ev
,
sc_desc
,
myid
,
tmp1
,
tmp2
)
status
=
check_correctness
_single
(
na
,
nev
,
as
,
a
,
ev
,
sc_desc
,
myid
,
tmp1
,
tmp2
)
deallocate
(
a
)
...
...
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