NEKO v1.0.3 (#2490)

/ᐠ. ｡.ᐟ\ᵐᵉᵒʷˎˊ˗

Author: njansson

configure.ac

@@ -1,5 +1,5 @@
 AC_PREREQ([2.69])
-AC_INIT([neko],[1.0.2])
+AC_INIT([neko],[1.0.3])
 AM_INIT_AUTOMAKE([foreign subdir-objects])
 AM_MAINTAINER_MODE
 AC_CONFIG_MACRO_DIR([m4])

patches/cce_stack.patch

@@ -0,0 +1,12 @@
+diff --git a/src/adt/stack.f90 b/src/adt/stack.f90
+index 5193fcff92c..a1a7b4ef916 100644
+--- a/src/adt/stack.f90
++++ b/src/adt/stack.f90
+@@ -258,6 +258,7 @@ contains
+     class(*), intent(in) :: data !< Arbitrary typed data (same type as stack)
+     class(*), allocatable :: tmp(:)
+     integer :: i
++    !DIR$ OPTIMIZE(-hscalar0)
+ 
+     if (this%top_ .eq. this%size_) then
+        this%size_ = ishft(this%size_, 1)

src/krylov/bcknd/sx/pc_jacobi_sx.f90

@@ -105,7 +105,7 @@ subroutine sx_jacobi_update(this)
 
       select case(lx)
       case (14)
-         call sx_update_lx13(this%d, coef%Xh%dxt, coef%Xh%dyt, coef%Xh%dzt, &
+         call sx_update_lx14(this%d, coef%Xh%dxt, coef%Xh%dyt, coef%Xh%dzt, &
               coef%G11, coef%G22, coef%G33, coef%G12, coef%G13, coef%G23, nelv)
       case (13)
          call sx_update_lx13(this%d, coef%Xh%dxt, coef%Xh%dyt, coef%Xh%dzt, &

src/math/fdm.f90

@@ -494,7 +494,7 @@ subroutine fdm_setup_fast1d_a(a, lbc, rbc, ll, lm, lr, ah, n)
 
     fac = 2.0_rp / lm
     a(1,1) = 1.0_rp
-    a(n+1,n+1) = 1.0-rp
+    a(n+1,n+1) = 1.0_rp
 
     do j = i0, i1
        do i = i0, i1