Fixed typo

src/OCTREE/octree_interpolate_six.f90

@@ -7,10 +7,10 @@ subroutine octree_interpolate_six(nf,octree,noctree,icon,nleaves,nfield,x,y,z, &
 ! Date: 2009-07-20
 ! Modified by D. Whipp - 2010-03-23
 
-! This function returns the value of five fields (fieldi) known at the nodes
+! This function returns the value of six fields (fieldi) known at the nodes
 ! of an octree by trilinear interpolation
 
-! nf is the number of fields being interpolate (must be 5)
+! nf is the number of fields being interpolate (must be 6)
 ! icon is the connectivity matrix
 ! nleaves is the number of leaves in the octree
 ! fieldi are the arrays of dimension nfield containing the fields
@@ -57,7 +57,7 @@ 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.5) write(*,*) 'error: octree_interpolate_five, nf = ', nf
+if (nf.ne.6) write(*,*) 'error: octree_interpolate_six, nf = ', nf
 
 do kkk=-1,1,2
    do jjj=-1,1,2