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

Disable no assumed size for some kernels

parent 31d90515
...@@ -77,13 +77,13 @@ ...@@ -77,13 +77,13 @@
use real_generic_simple_kernel !, only : double_hh_trafo_generic_simple use real_generic_simple_kernel !, only : double_hh_trafo_generic_simple
#endif #endif
#if defined(WITH_REAL_GENERIC_SIMPLE_BLOCK4_KERNEL) && !(defined(USE_ASSUMED_SIZE)) !#if defined(WITH_REAL_GENERIC_SIMPLE_BLOCK4_KERNEL) && !(defined(USE_ASSUMED_SIZE))
use real_generic_simple_block4_kernel !, only : double_hh_trafo_generic_simple ! use real_generic_simple_block4_kernel !, only : double_hh_trafo_generic_simple
#endif !#endif
#if defined(WITH_REAL_GENERIC_SIMPLE_BLOCK6_KERNEL) && !(defined(USE_ASSUMED_SIZE)) !#if defined(WITH_REAL_GENERIC_SIMPLE_BLOCK6_KERNEL) && !(defined(USE_ASSUMED_SIZE))
use real_generic_simple_block6_kernel !, only : double_hh_trafo_generic_simple ! use real_generic_simple_block6_kernel !, only : double_hh_trafo_generic_simple
#endif !#endif
#if defined(WITH_REAL_GENERIC_KERNEL) && !(defined(USE_ASSUMED_SIZE)) #if defined(WITH_REAL_GENERIC_KERNEL) && !(defined(USE_ASSUMED_SIZE))
use real_generic_kernel !, only : double_hh_trafo_generic use real_generic_kernel !, only : double_hh_trafo_generic
...@@ -1331,37 +1331,37 @@ ...@@ -1331,37 +1331,37 @@
w(:,4) = bcast_buffer(1:nbw,j+off-3) w(:,4) = bcast_buffer(1:nbw,j+off-3)
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
#ifdef USE_ASSUMED_SIZE !#ifdef USE_ASSUMED_SIZE
call quad_hh_trafo_& call quad_hh_trafo_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_generic_simple_4hv_& &_generic_simple_4hv_&
&PRECISION& &PRECISION&
& (a(1,j+off+a_off-3,istripe,my_thread), w, nbw, nl, stripe_width, nbw) & (a(1,j+off+a_off-3,istripe,my_thread), w, nbw, nl, stripe_width, nbw)
#else !#else
call quad_hh_trafo_& ! call quad_hh_trafo_&
&MATH_DATATYPE& ! &MATH_DATATYPE&
&_generic_simple_4hv_& ! &_generic_simple_4hv_&
&PRECISION& ! &PRECISION&
& (a(1:stripe_width,j+off+a_off-3:j+off+a_off+nbw-1,istripe,my_thread), w(1:nbw,1:6), nbw, nl, & ! & (a(1:stripe_width,j+off+a_off-3:j+off+a_off+nbw-1,istripe,my_thread), w(1:nbw,1:6), nbw, nl, &
stripe_width, nbw) ! stripe_width, nbw)
#endif !#endif
#else #else
#ifdef USE_ASSUMED_SIZE !#ifdef USE_ASSUMED_SIZE
call quad_hh_trafo_& call quad_hh_trafo_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_generic_simple_4hv_& &_generic_simple_4hv_&
&PRECISION& &PRECISION&
& (a(1,j+off+a_off-3,istripe), w, nbw, nl, stripe_width, nbw) & (a(1,j+off+a_off-3,istripe), w, nbw, nl, stripe_width, nbw)
#else !#else
call quad_hh_trafo_& ! call quad_hh_trafo_&
&MATH_DATATYPE& ! &MATH_DATATYPE&
&_generic_simple_4hv_& ! &_generic_simple_4hv_&
&PRECISION& ! &PRECISION&
& (a(1:stripe_width,j+off+a_off-3:j+off+a_off+nbw-1,istripe), w(1:nbw,1:6), nbw, nl, & ! & (a(1:stripe_width,j+off+a_off-3:j+off+a_off+nbw-1,istripe), w(1:nbw,1:6), nbw, nl, &
stripe_width, nbw) ! stripe_width, nbw)
#endif !#endif
#endif #endif
enddo enddo
...@@ -1453,7 +1453,7 @@ ...@@ -1453,7 +1453,7 @@
!#ifdef USE_ASSUMED_SIZE !#ifdef USE_ASSUMED_SIZE
call hexa_hh_trafo_& call hexa_hh_trafo_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_sse_6hv_& &_generic_simple_6hv_&
&PRECISION& &PRECISION&
& (c_loc(a(1,j+off+a_off-5,istripe,my_thread)), w, nbw, nl, stripe_width, nbw) & (c_loc(a(1,j+off+a_off-5,istripe,my_thread)), w, nbw, nl, stripe_width, nbw)
!#else !#else
...@@ -1469,7 +1469,7 @@ ...@@ -1469,7 +1469,7 @@
!#ifdef USE_ASSUMED_SIZE !#ifdef USE_ASSUMED_SIZE
call hexa_hh_trafo_& call hexa_hh_trafo_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_sse_6hv_& &_generic_simple_6hv_&
&PRECISION& &PRECISION&
& (c_loc(a(1,j+off+a_off-5,istripe)), w, nbw, nl, stripe_width, nbw) & (c_loc(a(1,j+off+a_off-5,istripe)), w, nbw, nl, stripe_width, nbw)
!#else !#else
...@@ -1489,38 +1489,38 @@ ...@@ -1489,38 +1489,38 @@
w(:,4) = bcast_buffer(1:nbw,jj+off-3) w(:,4) = bcast_buffer(1:nbw,jj+off-3)
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
#ifdef USE_ASSUMED_SIZE !#ifdef USE_ASSUMED_SIZE
call quad_hh_trafo_& call quad_hh_trafo_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_generic_simple_4hv_& &_generic_simple_4hv_&
&PRECISION& &PRECISION&
& (a(1,jj+off+a_off-3,istripe,my_thread), w, nbw, nl, stripe_width, nbw) & (a(1,jj+off+a_off-3,istripe,my_thread), w, nbw, nl, stripe_width, nbw)
#else !#else
call quad_hh_trafo_& ! call quad_hh_trafo_&
&MATH_DATATYPE& ! &MATH_DATATYPE&
&_generic_simple_4hv_& ! &_generic_simple_4hv_&
&PRECISION& ! &PRECISION&
& (a(1:stripe_width,jj+off+a_off-3:jj+off+a_off+nbw-1,istripe,my_thread), & ! & (a(1:stripe_width,jj+off+a_off-3:jj+off+a_off+nbw-1,istripe,my_thread), &
w(1:nbw,1:6), nbw, nl, stripe_width, nbw) ! w(1:nbw,1:6), nbw, nl, stripe_width, nbw)
#endif !#endif
#else /* WITH_OPENMP */ #else /* WITH_OPENMP */
#ifdef USE_ASSUMED_SIZE !#ifdef USE_ASSUMED_SIZE
call quad_hh_trafo_& call quad_hh_trafo_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_generic_simple_4hv_& &_generic_simple_4hv_&
&PRECISION& &PRECISION&
& (a(1,jj+off+a_off-3,istripe), w, & & (a(1,jj+off+a_off-3,istripe), w, &
nbw, nl, stripe_width, nbw) nbw, nl, stripe_width, nbw)
#else !#else
call quad_hh_trafo_& ! call quad_hh_trafo_&
&MATH_DATATYPE& ! &MATH_DATATYPE&
&_generic_simple_4hv_& ! &_generic_simple_4hv_&
&PRECISION& ! &PRECISION&
& (a(1:stripe_width,jj+off+a_off-3:jj+off+a_off+nbw-1,istripe), & ! & (a(1:stripe_width,jj+off+a_off-3:jj+off+a_off+nbw-1,istripe), &
w(1:nbw,1:6), nbw, nl, stripe_width, nbw) ! w(1:nbw,1:6), nbw, nl, stripe_width, nbw)
#endif !#endif
#endif /* WITH_OPENMP */ #endif /* WITH_OPENMP */
enddo enddo
......
...@@ -59,18 +59,18 @@ ...@@ -59,18 +59,18 @@
#endif #endif
#include "config-f90.h" #include "config-f90.h"
#ifndef USE_ASSUMED_SIZE !#ifndef USE_ASSUMED_SIZE
module real_generic_simple_block4_kernel !module real_generic_simple_block4_kernel
!
private ! private
public quad_hh_trafo_real_generic_simple_4hv_double ! public quad_hh_trafo_real_generic_simple_4hv_double
!
#ifdef WANT_SINGLE_PRECISION_REAL !#ifdef WANT_SINGLE_PRECISION_REAL
public quad_hh_trafo_real_generic_simple_4hv_single ! public quad_hh_trafo_real_generic_simple_4hv_single
#endif !#endif
!
contains ! contains
#endif !#endif
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION 1 #define DOUBLE_PRECISION 1
...@@ -88,7 +88,7 @@ module real_generic_simple_block4_kernel ...@@ -88,7 +88,7 @@ module real_generic_simple_block4_kernel
#undef SINGLE_PRECISION #undef SINGLE_PRECISION
#endif #endif
#ifndef USE_ASSUMED_SIZE !#ifndef USE_ASSUMED_SIZE
end module real_generic_simple_block4_kernel !end module real_generic_simple_block4_kernel
#endif !#endif
! -------------------------------------------------------------------------------------------------- ! --------------------------------------------------------------------------------------------------
...@@ -60,18 +60,18 @@ ...@@ -60,18 +60,18 @@
#endif #endif
#include "config-f90.h" #include "config-f90.h"
#ifndef USE_ASSUMED_SIZE !#ifndef USE_ASSUMED_SIZE
module real_generic_simple_block6_kernel !module real_generic_simple_block6_kernel
!
private ! private
public hexa_hh_trafo_real_generic_simple_6hv_double ! public hexa_hh_trafo_real_generic_simple_6hv_double
!
#ifdef WANT_SINGLE_PRECISION_REAL !#ifdef WANT_SINGLE_PRECISION_REAL
public hexa_hh_trafo_real_generic_simple_6hv_single ! public hexa_hh_trafo_real_generic_simple_6hv_single
#endif !#endif
!
contains ! contains
#endif !#endif
#define REALCASE 1 #define REALCASE 1
#define DOUBLE_PRECISION 1 #define DOUBLE_PRECISION 1
...@@ -89,7 +89,7 @@ module real_generic_simple_block6_kernel ...@@ -89,7 +89,7 @@ module real_generic_simple_block6_kernel
#undef SINGLE_PRECISION #undef SINGLE_PRECISION
#endif #endif
#ifndef USE_ASSUMED_SIZE !#ifndef USE_ASSUMED_SIZE
end module real_generic_simple_block6_kernel !end module real_generic_simple_block6_kernel
#endif !#endif
! -------------------------------------------------------------------------------------------------- ! --------------------------------------------------------------------------------------------------
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