Skip to content
Snippets Groups Projects
Commit a8d44589 authored by Douglas Guptill's avatar Douglas Guptill
Browse files

add print if nf != 3

parent 23418cc5
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment