From a8d445893b11108a1a376590a3944fd3dbbbc194 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 20 Jul 2009 04:41:02 +0000
Subject: [PATCH] add print if nf != 3
---
OCTREE/octree_interpolate_three.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/OCTREE/octree_interpolate_three.f90 b/OCTREE/octree_interpolate_three.f90
index b037413e..b1791379 100644
--- a/OCTREE/octree_interpolate_three.f90
+++ b/OCTREE/octree_interpolate_three.f90
@@ -55,6 +55,8 @@ if (y.gt.1.d0-1.d-11) yt=1.d0-1.d-11
if (z.lt.1.e-11) zt=1.e-11
if (z.gt.1.d0-1.d-11) zt=1.d0-1.d-11
+if (nf.ne.3) write(*,*) 'error: octree_interpolate_three, nf = ', nf
+
do kkk=-1,1,2
do jjj=-1,1,2
do iii=-1,1,2
--
GitLab