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
f132e10f
Commit
f132e10f
authored
Mar 25, 2017
by
Andreas Marek
Browse files
Insert real/complex in assembly kernel names
parent
57426d58
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/compute_hh_trafo.X90
View file @
f132e10f
...
...
@@ -485,10 +485,14 @@
w(:,2) = bcast_buffer(1:nbw,j+off-1)
#ifdef WITH_OPENMP
call double_hh_trafo_&
&MATH_DATATYPE&
&_&
&PRECISION&
& (c_loc(a(1,j+off+a_off-1,istripe,my_thread)), w, nbw, nl, stripe_width, nbw)
#else
call double_hh_trafo_&
&MATH_DATATYPE&
&_&
&PRECISION&
& (c_loc(a(1,j+off+a_off-1,istripe)), w, nbw, nl, stripe_width, nbw)
#endif
...
...
src/elpa2_kernels/elpa2_kernels_asm_x86_64_double_precision.s
View file @
f132e10f
...
...
@@ -54,7 +54,7 @@
#
distributed
along
with
the
original
code
in
the
file
"COPYING"
.
#
#
--------------------------------------------------------------------------------------------------
.
globl
double_hh_trafo_double
.
globl
double_hh_trafo_
real_
double
.
globl
single_hh_trafo_complex_double
.
text
...
...
@@ -367,7 +367,7 @@
#-------------------------------------------------------------------------------
#
FORTRAN
Interface
:
#
#
subroutine
double_hh_trafo
(
q
,
hh
,
nb
,
nq
,
ldq
,
ldh
)
#
subroutine
double_hh_trafo
_real_double
(
q
,
hh
,
nb
,
nq
,
ldq
,
ldh
)
#
#
integer
,
intent
(
in
)
::
nb
,
nq
,
ldq
,
ldh
#
real
*8,
intent
(
inout
)
::
q
(
ldq
,*)
...
...
@@ -385,7 +385,7 @@
#!
f
>#
ifdef
WITH_REAL_SSE_ASSEMBLY_KERNEL
#!
f
>
interface
#!
f
>
subroutine
double_hh_trafo_double
(
q
,
hh
,
nb
,
nq
,
ldq
,
ldh
)
bind
(
C
,
name
=
"double_hh_trafo_double"
)
#!
f
>
subroutine
double_hh_trafo_
real_
double
(
q
,
hh
,
nb
,
nq
,
ldq
,
ldh
)
bind
(
C
,
name
=
"double_hh_trafo_
real_
double"
)
#!
f
>
use
,
intrinsic
::
iso_c_binding
#!
f
>
integer
(
kind
=
c_int
)
::
nb
,
nq
,
ldq
,
ldh
#!
f
>
type
(
c_ptr
),
value
::
q
...
...
@@ -394,7 +394,7 @@
#!
f
>
end
interface
#!
f
>#
endif
.
align
16
,
0x90
double_hh_trafo_double
:
double_hh_trafo_
real_
double
:
#
Get
integer
parameters
into
corresponding
registers
...
...
@@ -695,7 +695,7 @@ return1:
#-------------------------------------------------------------------------------
#
FORTRAN
Interface
:
#
#
subroutine
single_hh_trafo_complex
(
q
,
hh
,
nb
,
nq
,
ldq
)
#
subroutine
single_hh_trafo_complex
_double
(
q
,
hh
,
nb
,
nq
,
ldq
)
#
#
integer
,
intent
(
in
)
::
nb
,
nq
,
ldq
#
complex
*16,
intent
(
inout
)
::
q
(
ldq
,*)
...
...
src/elpa2_kernels/elpa2_kernels_asm_x86_64_single_precision.s
View file @
f132e10f
...
...
@@ -41,7 +41,7 @@
#
#
Author
:
Andreas
Marek
,
MPCDF
.
globl
double_hh_trafo_single
.
globl
double_hh_trafo_
real_
single
.
globl
single_hh_trafo_complex_single
.
text
...
...
@@ -376,7 +376,7 @@
#-------------------------------------------------------------------------------
#
FORTRAN
Interface
:
#
#
subroutine
double_hh_trafo
(
q
,
hh
,
nb
,
nq
,
ldq
,
ldh
)
#
subroutine
double_hh_trafo
_real_single
(
q
,
hh
,
nb
,
nq
,
ldq
,
ldh
)
#
#
integer
,
intent
(
in
)
::
nb
,
nq
,
ldq
,
ldh
#
real
*8,
intent
(
inout
)
::
q
(
ldq
,*)
...
...
@@ -394,7 +394,7 @@
#!
f
>#
ifdef
WITH_REAL_SSE_ASSEMBLY_KERNEL
#!
f
>#
ifdef
WANT_SINGLE_PRECISION_REAL
#!
f
>
interface
#!
f
>
subroutine
double_hh_trafo_single
(
q
,
hh
,
nb
,
nq
,
ldq
,
ldh
)
bind
(
C
,
name
=
"double_hh_trafo_single"
)
#!
f
>
subroutine
double_hh_trafo_
real_
single
(
q
,
hh
,
nb
,
nq
,
ldq
,
ldh
)
bind
(
C
,
name
=
"double_hh_trafo_
real_
single"
)
#!
f
>
use
,
intrinsic
::
iso_c_binding
#!
f
>
integer
(
kind
=
c_int
)
::
nb
,
nq
,
ldq
,
ldh
#!
f
>
type
(
c_ptr
),
value
::
q
...
...
@@ -404,7 +404,7 @@
#!
f
>#
endif
#!
f
>#
endif
.
align
16
,
0x90
double_hh_trafo_single
:
double_hh_trafo_
real_
single
:
#
Get
integer
parameters
into
corresponding
registers
...
...
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