From 1c8b0b6cf628fc7a8ba328881e9c8b56859a1407 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Sun, 31 May 2009 15:06:30 +0000
Subject: [PATCH] real->double precision to match caller
---
RESAMPLE/fpdisc.f | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/RESAMPLE/fpdisc.f b/RESAMPLE/fpdisc.f
index 51ad06a7..5e1d047e 100644
--- a/RESAMPLE/fpdisc.f
+++ b/RESAMPLE/fpdisc.f
@@ -4,12 +4,12 @@
!c ..scalar arguments..
integer n,k2,nest
!c ..array arguments..
- real t(n),b(nest,k2)
+ double precision t(n),b(nest,k2)
!c ..local scalars..
- real an,fac,prod
+ double precision an,fac,prod
integer i,ik,j,jk,k,k1,l,lj,lk,lmk,lp,nk1,nrint
!c ..local array..
- real h(12)
+ double precision h(12)
!c ..
k1 = k2-1
k = k1-1
--
GitLab