Commit f132e10f authored by Andreas Marek's avatar Andreas Marek

Insert real/complex in assembly kernel names

parent 57426d58
......@@ -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
......
......@@ -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,*)
......
......@@ -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
......
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