More harmonization

foofiles/diffraction_data.foo

@@ -295,36 +295,6 @@ contains
 
    end
 
-   sort_reflections ::: leaky, private
-   ! I sorted according toone data set that I saw.
-      self :: IN
-
-   ENSURE(.reflections.associated,"no reflection data")
-
-      n_refl,i, hc :: INT
-      hi,list,indx :: VEC{INT}@
-
-      n_refl = .reflections.n_refl
-
-      hi.create(3)
-      list.create(n_refl)
-      indx.create(n_refl)
-
-      ! Sort according to H index code
-#     define CLUSTER_H_MAX 127
-      do i = 1,n_refl
-         hi = .reflections(i).indices
-         hc = CLUSTER_H_CODE(hi(3),hi(2),hi(1))
-         list(i) = hc
-      end
-#     define CLUSTER_H_MAX 7
-
-      indx.destroy
-      list.destroy
-      hi.destroy
-
-   end
-
    set_refinement_data ::: pure
    ! Set the defaults internal variables for a refinement
       self :: INOUT
@@ -817,6 +787,36 @@ contains
 
    end
 
+   sort_reflections ::: leaky, private
+   ! I sorted according toone data set that I saw.
+      self :: IN
+
+   ENSURE(.reflections.associated,"no reflection data")
+
+      n_refl,i, hc :: INT
+      hi,list,indx :: VEC{INT}@
+
+      n_refl = .reflections.n_refl
+
+      hi.create(3)
+      list.create(n_refl)
+      indx.create(n_refl)
+
+      ! Sort according to H index code
+#     define CLUSTER_H_MAX 127
+      do i = 1,n_refl
+         hi = .reflections(i).indices
+         hc = CLUSTER_H_CODE(hi(3),hi(2),hi(1))
+         list(i) = hc
+      end
+#     define CLUSTER_H_MAX 7
+
+      indx.destroy
+      list.destroy
+      hi.destroy
+
+   end
+
 !  =======
 !  Inquiry
 !  =======