From b0823fe00341810439df9d1af3b18668d519ac5b Mon Sep 17 00:00:00 2001
From: Emmanuel Giner <giner.emmanuel@gmail.com>
Date: Thu, 30 Apr 2020 19:14:50 +0200
Subject: [PATCH] added shank

---
 src/utils/shank.irp.f | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 src/utils/shank.irp.f

diff --git a/src/utils/shank.irp.f b/src/utils/shank.irp.f
new file mode 100644
index 00000000..4ec10bbe
--- /dev/null
+++ b/src/utils/shank.irp.f
@@ -0,0 +1,39 @@
+double precision function shank3_f(array,n,nmax)
+ implicit none                                                                                                                                                         
+ integer, intent(in) :: n,nmax
+ double precision, intent(in) :: array(0:nmax) ! array of the partial sums
+ integer :: ntmp
+ double precision :: shank1(0:nmax),shank2(0:nmax),shank3(0:nmax)
+ ntmp = n
+ call shank(array,ntmp,nmax,shank1)
+ ntmp = ntmp - 2
+ call shank(shank1,ntmp,nmax,shank2)
+ ntmp = ntmp - 2
+ call shank(shank2,ntmp,nmax,shank3)
+ ntmp = ntmp - 2
+ shank3_f = shank3(ntmp)
+end
+
+
+subroutine shank(array,n,nmax,shank1)
+ implicit none
+ integer, intent(in) :: n,nmax
+ double precision, intent(in)  :: array(0:nmax)
+ double precision, intent(out) :: shank1(0:nmax)
+ integer :: i,j
+ double precision :: shank_function
+ do i = 1, n-1
+  shank1(i-1) = shank_function(array,i,nmax)
+ enddo
+end
+
+double precision function shank_function(array,i,n)
+ implicit none
+ integer, intent(in) :: i,n
+ double precision, intent(in) :: array(0:n)
+ double precision :: b_n, b_n1
+ b_n = array(i) - array(i-1)
+ b_n1 = array(i+1) - array(i)
+ shank_function = array(i+1) - b_n1*b_n1/(b_n1-b_n)
+end
+