From c90ee9d32e829cd43f6e37c15eb52c112a4e401f Mon Sep 17 00:00:00 2001
From: daniau <daniau@b657c933-2333-4658-acf2-d3c7c2708721>
Date: Wed, 6 Feb 2008 14:33:12 +0000
Subject: [PATCH] git-svn-id: https://lxsd.femto-st.fr/svn/fvn@32
 b657c933-2333-4658-acf2-d3c7c2708721

---
 fvnlib.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fvnlib.f90 b/fvnlib.f90
index 460b9c8..512a22e 100644
--- a/fvnlib.f90
+++ b/fvnlib.f90
@@ -1626,7 +1626,7 @@ subroutine fvn_s_akima(n,x,y,br,co)
     ! br is just a copy of x
     br(:)=x(:)
     
-    allocate(var(n))
+    allocate(var(n+3))
     allocate(z(n))
     ! evaluate the variations
     do i=1, n-1
@@ -1688,7 +1688,7 @@ subroutine fvn_d_akima(n,x,y,br,co)
     ! br is just a copy of x
     br(:)=x(:)
 
-    allocate(var(n))
+    allocate(var(n+3))
     allocate(z(n))
     ! evaluate the variations
     do i=1, n-1
-- 
2.16.4