Commit fbb0e6eb authored by Alexander Heinecke's avatar Alexander Heinecke
Browse files

updated kernel names of real kernels

parent ae81ebca
......@@ -1703,7 +1703,7 @@ contains
do j = ncols, 2, -2
w(:,1) = bcast_buffer(1:nbw,j+off)
w(:,2) = bcast_buffer(1:nbw,j+off-1)
call double_hh_trafo_2hv(a(1,j+off+a_off-1,istripe), w, nbw, nl, stripe_width, nbw)
call double_hh_trafo(a(1,j+off+a_off-1,istripe), w, nbw, nl, stripe_width, nbw)
enddo
if(j==1) call single_hh_trafo(a(1,1+off+a_off,istripe),bcast_buffer(1,off+1), nbw, nl, stripe_width)
......@@ -1713,12 +1713,12 @@ contains
! w(:,2) = bcast_buffer(1:nbw,j+off-1)
! w(:,3) = bcast_buffer(1:nbw,j+off-2)
! w(:,4) = bcast_buffer(1:nbw,j+off-3)
! call double_hh_trafo_4hv(a(1,j+off+a_off-3,istripe), w, nbw, nl, stripe_width, nbw)
! call quad_hh_trafo(a(1,j+off+a_off-3,istripe), w, nbw, nl, stripe_width, nbw)
!enddo
!do jj = j, 2, -2
! w(:,1) = bcast_buffer(1:nbw,jj+off)
! w(:,2) = bcast_buffer(1:nbw,jj+off-1)
! call double_hh_trafo_2hv(a(1,jj+off+a_off-1,istripe), w, nbw, nl, stripe_width, nbw)
! call double_hh_trafo(a(1,jj+off+a_off-1,istripe), w, nbw, nl, stripe_width, nbw)
!enddo
!if(jj==1) call single_hh_trafo(a(1,1+off+a_off,istripe),bcast_buffer(1,off+1), nbw, nl, stripe_width)
......@@ -1730,19 +1730,19 @@ contains
! w(:,4) = bcast_buffer(1:nbw,j+off-3)
! w(:,5) = bcast_buffer(1:nbw,j+off-4)
! w(:,6) = bcast_buffer(1:nbw,j+off-5)
! call double_hh_trafo_6hv(a(1,j+off+a_off-5,istripe), w, nbw, nl, stripe_width, nbw)
! call hexa_hh_trafo(a(1,j+off+a_off-5,istripe), w, nbw, nl, stripe_width, nbw)
!enddo
!do jj = j, 4, -4
! w(:,1) = bcast_buffer(1:nbw,jj+off)
! w(:,2) = bcast_buffer(1:nbw,jj+off-1)
! w(:,3) = bcast_buffer(1:nbw,jj+off-2)
! w(:,4) = bcast_buffer(1:nbw,jj+off-3)
! call double_hh_trafo_4hv(a(1,jj+off+a_off-3,istripe), w, nbw, nl, stripe_width, nbw)
! call quad_hh_trafo(a(1,jj+off+a_off-3,istripe), w, nbw, nl, stripe_width, nbw)
!enddo
!do jjj = jj, 2, -2
! w(:,1) = bcast_buffer(1:nbw,jjj+off)
! w(:,2) = bcast_buffer(1:nbw,jjj+off-1)
! call double_hh_trafo_2hv(a(1,jjj+off+a_off-1,istripe), w, nbw, nl, stripe_width, nbw)
! call double_hh_trafo(a(1,jjj+off+a_off-1,istripe), w, nbw, nl, stripe_width, nbw)
!enddo
!if(jjj==1) call single_hh_trafo(a(1,1+off+a_off,istripe),bcast_buffer(1,off+1), nbw, nl, stripe_width)
......
......@@ -12,7 +12,7 @@
!
! --------------------------------------------------------------------------------------------------
subroutine double_hh_trafo_2hv(q, hh, nb, nq, ldq, ldh)
subroutine double_hh_trafo(q, hh, nb, nq, ldq, ldh)
implicit none
......
......@@ -11,7 +11,7 @@
!
! --------------------------------------------------------------------------------------------------
subroutine double_hh_trafo_2hv(q, hh, nb, nq, ldq, ldh)
subroutine double_hh_trafo(q, hh, nb, nq, ldq, ldh)
implicit none
......
......@@ -11,7 +11,7 @@
!
! --------------------------------------------------------------------------------------------------
subroutine double_hh_trafo_2hv(q, hh, nb, nq, ldq, ldh)
subroutine double_hh_trafo(q, hh, nb, nq, ldq, ldh)
implicit none
......
......@@ -14,7 +14,7 @@
!
! --------------------------------------------------------------------------------------------------
subroutine double_hh_trafo_2hv(q, hh, nb, nq, ldq, ldh)
subroutine double_hh_trafo(q, hh, nb, nq, ldq, ldh)
implicit none
......
......@@ -34,12 +34,12 @@ void hh_trafo_kernel_8_SSE_2hv(double* q, double* hh, int nb, int ldq, int ldh,
void hh_trafo_kernel_12_SSE_2hv(double* q, double* hh, int nb, int ldq, int ldh, double s);
#endif
void double_hh_trafo_2hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
void double_hh_trafo_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
#if 0
void double_hh_trafo_2hv_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
void double_hh_trafo_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
#endif
void double_hh_trafo_2hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
void double_hh_trafo_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
{
int i;
int nb = *pnb;
......@@ -115,7 +115,7 @@ void double_hh_trafo_2hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq,
}
#if 0
void double_hh_trafo_2hv_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
void double_hh_trafo_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
{
int i;
int nb = *pnb;
......
......@@ -33,12 +33,12 @@ __forceinline void hh_trafo_kernel_4_SSE_4hv(double* q, double* hh, int nb, int
__forceinline void hh_trafo_kernel_6_SSE_4hv(double* q, double* hh, int nb, int ldq, int ldh, double s_1_2, double s_1_3, double s_2_3, double s_1_4, double s_2_4, double s_3_4);
#endif
void double_hh_trafo_4hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
void quad_hh_trafo_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
#if 0
void double_hh_trafo_4hv_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
void quad_hh_trafo_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
#endif
void double_hh_trafo_4hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
void quad_hh_trafo_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
{
int i;
int nb = *pnb;
......@@ -134,7 +134,7 @@ void double_hh_trafo_4hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq,
}
#if 0
void double_hh_trafo_4hv_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
void quad_hh_trafo_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
{
int i;
int nb = *pnb;
......
......@@ -31,12 +31,12 @@ void hh_trafo_kernel_2_SSE_6hv(double* q, double* hh, int nb, int ldq, int ldh,
void hh_trafo_kernel_4_SSE_6hv(double* q, double* hh, int nb, int ldq, int ldh, double* scalarprods);
#endif
void double_hh_trafo_6hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
void hexa_hh_trafo_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
#if 0
void double_hh_trafo_6hv_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
void hexa_hh_trafo_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh);
#endif
void double_hh_trafo_6hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
void hexa_hh_trafo_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
{
int i;
int nb = *pnb;
......@@ -206,7 +206,7 @@ void double_hh_trafo_6hv_(double* q, double* hh, int* pnb, int* pnq, int* pldq,
}
#if 0
void double_hh_trafo_6hv_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
void hexa_hh_trafo_fast_(double* q, double* hh, int* pnb, int* pnq, int* pldq, int* pldh)
{
int i;
int nb = *pnb;
......
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