Commit f132e10f authored by Andreas Marek's avatar Andreas Marek
Browse files

Insert real/complex in assembly kernel names

parent 57426d58
...@@ -485,10 +485,14 @@ ...@@ -485,10 +485,14 @@
w(:,2) = bcast_buffer(1:nbw,j+off-1) w(:,2) = bcast_buffer(1:nbw,j+off-1)
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
call double_hh_trafo_& call double_hh_trafo_&
&MATH_DATATYPE&
&_&
&PRECISION& &PRECISION&
& (c_loc(a(1,j+off+a_off-1,istripe,my_thread)), w, nbw, nl, stripe_width, nbw) & (c_loc(a(1,j+off+a_off-1,istripe,my_thread)), w, nbw, nl, stripe_width, nbw)
#else #else
call double_hh_trafo_& call double_hh_trafo_&
&MATH_DATATYPE&
&_&
&PRECISION& &PRECISION&
& (c_loc(a(1,j+off+a_off-1,istripe)), w, nbw, nl, stripe_width, nbw) & (c_loc(a(1,j+off+a_off-1,istripe)), w, nbw, nl, stripe_width, nbw)
#endif #endif
......
...@@ -54,7 +54,7 @@ ...@@ -54,7 +54,7 @@
# distributed along with the original code in the file "COPYING". # 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 .globl single_hh_trafo_complex_double
.text .text
...@@ -367,7 +367,7 @@ ...@@ -367,7 +367,7 @@
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# FORTRAN Interface: # 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 # integer, intent(in) :: nb, nq, ldq, ldh
# real*8, intent(inout) :: q(ldq,*) # real*8, intent(inout) :: q(ldq,*)
...@@ -385,7 +385,7 @@ ...@@ -385,7 +385,7 @@
#!f>#ifdef WITH_REAL_SSE_ASSEMBLY_KERNEL #!f>#ifdef WITH_REAL_SSE_ASSEMBLY_KERNEL
#!f> interface #!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> use, intrinsic :: iso_c_binding
#!f> integer(kind=c_int) :: nb, nq, ldq, ldh #!f> integer(kind=c_int) :: nb, nq, ldq, ldh
#!f> type(c_ptr), value :: q #!f> type(c_ptr), value :: q
...@@ -394,7 +394,7 @@ ...@@ -394,7 +394,7 @@
#!f> end interface #!f> end interface
#!f>#endif #!f>#endif
.align 16,0x90 .align 16,0x90
double_hh_trafo_double: double_hh_trafo_real_double:
# Get integer parameters into corresponding registers # Get integer parameters into corresponding registers
...@@ -695,7 +695,7 @@ return1: ...@@ -695,7 +695,7 @@ return1:
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# FORTRAN Interface: # 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 # integer, intent(in) :: nb, nq, ldq
# complex*16, intent(inout) :: q(ldq,*) # complex*16, intent(inout) :: q(ldq,*)
......
...@@ -41,7 +41,7 @@ ...@@ -41,7 +41,7 @@
# #
# Author: Andreas Marek, MPCDF # Author: Andreas Marek, MPCDF
.globl double_hh_trafo_single .globl double_hh_trafo_real_single
.globl single_hh_trafo_complex_single .globl single_hh_trafo_complex_single
.text .text
...@@ -376,7 +376,7 @@ ...@@ -376,7 +376,7 @@
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# FORTRAN Interface: # 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 # integer, intent(in) :: nb, nq, ldq, ldh
# real*8, intent(inout) :: q(ldq,*) # real*8, intent(inout) :: q(ldq,*)
...@@ -394,7 +394,7 @@ ...@@ -394,7 +394,7 @@
#!f>#ifdef WITH_REAL_SSE_ASSEMBLY_KERNEL #!f>#ifdef WITH_REAL_SSE_ASSEMBLY_KERNEL
#!f>#ifdef WANT_SINGLE_PRECISION_REAL #!f>#ifdef WANT_SINGLE_PRECISION_REAL
#!f> interface #!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> use, intrinsic :: iso_c_binding
#!f> integer(kind=c_int) :: nb, nq, ldq, ldh #!f> integer(kind=c_int) :: nb, nq, ldq, ldh
#!f> type(c_ptr), value :: q #!f> type(c_ptr), value :: q
...@@ -404,7 +404,7 @@ ...@@ -404,7 +404,7 @@
#!f>#endif #!f>#endif
#!f>#endif #!f>#endif
.align 16,0x90 .align 16,0x90
double_hh_trafo_single: double_hh_trafo_real_single:
# Get integer parameters into corresponding registers # Get integer parameters into corresponding registers
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment