From 1d4dbb36441a40ab1b578f0a94c991f670da0588 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 20 Jul 2009 04:42:42 +0000
Subject: [PATCH] call octree_interpolate_five, in place of
octree_interpolate_many
---
interpolate_ov_on_osolve.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/interpolate_ov_on_osolve.f90 b/interpolate_ov_on_osolve.f90
index b91d186d..35ab592b 100644
--- a/interpolate_ov_on_osolve.f90
+++ b/interpolate_ov_on_osolve.f90
@@ -107,7 +107,7 @@ pressure=0.d0
! interpolate velocity solution onto solve octree
do k=1+iproc,osolve%nnode,nproc
- call octree_interpolate_many &
+ call octree_interpolate_five &
(5,ov%octree,ov%noctree,ov%icon, &
ov%nleaves,ov%nnode, &
osolve%x(k),osolve%y(k),osolve%z(k), &
--
GitLab