Commit bf800d3e authored by Andreas Marek's avatar Andreas Marek

No assumed size for simple block6

parent 5ae53d29
...@@ -81,9 +81,9 @@ ...@@ -81,9 +81,9 @@
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
...@@ -1450,36 +1450,36 @@ ...@@ -1450,36 +1450,36 @@
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
#ifdef USE_ASSUMED_SIZE !#ifdef USE_ASSUMED_SIZE
call hexa_hh_trafo_& call hexa_hh_trafo_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_generic_simple_6hv_& &_generic_simple_6hv_&
&PRECISION& &PRECISION&
& (a(1,j+off+a_off-5,istripe,my_thread), w, nbw, nl, stripe_width, nbw) & (a(1,j+off+a_off-5,istripe,my_thread), w, nbw, nl, stripe_width, nbw)
#else !#else
call hexa_hh_trafo_& ! call hexa_hh_trafo_&
&MATH_DATATYPE& ! &MATH_DATATYPE&
&_generic_simple_6hv_& ! &_generic_simple_6hv_&
&PRECISION& ! &PRECISION&
& (a(1:stripe_width,j+off+a_off-5:j+off+a_off-1,istripe,my_thread), w(1:nbw,1:6), & ! & (a(1:stripe_width,j+off+a_off-5:j+off+a_off-1,istripe,my_thread), w(1:nbw,1:6), &
nbw, nl, stripe_width, nbw) ! nbw, nl, stripe_width, nbw)
#endif !#endif
#else /* WITH_OPENMP */ #else /* WITH_OPENMP */
#ifdef USE_ASSUMED_SIZE !#ifdef USE_ASSUMED_SIZE
call hexa_hh_trafo_& call hexa_hh_trafo_&
&MATH_DATATYPE& &MATH_DATATYPE&
&_generic_simple_6hv_& &_generic_simple_6hv_&
&PRECISION& &PRECISION&
& (a(1,j+off+a_off-5,istripe), w, nbw, nl, stripe_width, nbw) & (a(1,j+off+a_off-5,istripe), w, nbw, nl, stripe_width, nbw)
#else !#else
call hexa_hh_trafo_& ! call hexa_hh_trafo_&
&MATH_DATATYPE& ! &MATH_DATATYPE&
&_generic_simple_6hv_& ! &_generic_simple_6hv_&
&PRECISION& ! &PRECISION&
& (a(1:stripe_width,j+off+a_off-5:j+off+a_off+nbw-1,istripe), w(1:nbw,1:6), & ! & (a(1:stripe_width,j+off+a_off-5:j+off+a_off+nbw-1,istripe), w(1:nbw,1:6), &
nbw, nl, stripe_width, nbw) ! nbw, nl, stripe_width, nbw)
#endif !#endif
#endif /* WITH_OPENMP */ #endif /* WITH_OPENMP */
enddo enddo
do jj = j, 4, -4 do jj = j, 4, -4
......
...@@ -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