Purely indentation fixes / formatting

Author: willend

mcstas-comps/samples/Phonon_simple.comp

@@ -302,67 +302,62 @@ double zridd_gpu(double x1, double x2, struct neutron_params *neutron, struct ph
 
   void findroots(double brack_low, double brack_mid, double brack_high, 
                 double *list, int* index, double (*f)(struct neutron_params*, struct phonon_params*), 
-                struct neutron_params *neutron, struct phonon_params *phonon)
-    {
-      double root;
-      // Energy gain and energy loss spaces are not equally big. We check uniformly
-      // So we use two different ranges
-      double range_low = brack_mid - brack_low;
-      double range_high = brack_high - brack_mid;
-      // First in energy loss for the neutron
-     for (int i=0; i<phonon->e_steps_low_; i++){
+                struct neutron_params *neutron, struct phonon_params *phonon) {
+    double root;
+    // Energy gain and energy loss spaces are not equally big. We check uniformly
+    // So we use two different ranges
+    double range_low = brack_mid - brack_low;
+    double range_high = brack_high - brack_mid;
+    // First in energy loss for the neutron
+    for (int i=0; i<phonon->e_steps_low_; i++){
       root = zridd(f, brack_low+range_low*i/ phonon->e_steps_low_,
                    brack_low+range_low*(i+1)/ phonon->e_steps_low_,
                    neutron, phonon, ROOTACC);
-      if (root != UNUSED)
-      {
-        list[(*index)++]=root;
+      if (root != UNUSED) {
+	list[(*index)++]=root;
       }
-     }
+    }
 
     // Then in energy gain for the neutron
     for (int i=0; i<phonon->e_steps_high_; i++){
       root = zridd(f, brack_low+range_high*i/ phonon->e_steps_high_,
-                   brack_low+range_high*(i+1)/ phonon->e_steps_high_,
-                   neutron, phonon, ROOTACC);
+		   brack_low+range_high*(i+1)/ phonon->e_steps_high_,
+		   neutron, phonon, ROOTACC);
       if (root != UNUSED){
-        list[(*index)++]=root;
+	list[(*index)++]=root;
       }
-     }
     }
+  }
 
 #pragma acc routine 
   void findroots_gpu(double brack_low, double brack_mid, double brack_high, 
-                    double *list, int* index, struct neutron_params *neutron, struct phonon_params *phonon)
-    {
-      double root;
-      // Energy gain and energy loss spaces are not equally big. We check uniformly
-      // So we use two different ranges
-      double range_low = brack_mid - brack_low;
-      double range_high = brack_high - brack_mid;
-      // First in energy loss for the neutron
-     for (int i=0; i<phonon->e_steps_low_; i++){
+                    double *list, int* index, struct neutron_params *neutron, struct phonon_params *phonon) {
+    double root;
+    // Energy gain and energy loss spaces are not equally big. We check uniformly
+    // So we use two different ranges
+    double range_low = brack_mid - brack_low;
+    double range_high = brack_high - brack_mid;
+    // First in energy loss for the neutron
+    for (int i=0; i<phonon->e_steps_low_; i++){
       root = zridd_gpu(brack_low+range_low*i/ phonon->e_steps_low_,
-                   brack_low+range_low*(i+1)/ phonon->e_steps_low_,
-                   neutron, phonon, ROOTACC);
-      if (root != UNUSED)
-      {
-        list[(*index)++]=root;
+		       brack_low+range_low*(i+1)/ phonon->e_steps_low_,
+		       neutron, phonon, ROOTACC);
+      if (root != UNUSED) {
+	list[(*index)++]=root;
       }
-     }
+    }
 
     // Then in energy gain for the neutron
     for (int i=0; i<phonon->e_steps_high_; i++){
       root = zridd_gpu(brack_low+range_high*i/ phonon->e_steps_high_,
-                   brack_low+range_high*(i+1)/ phonon->e_steps_high_,
-                   neutron, phonon, ROOTACC);
+		       brack_low+range_high*(i+1)/ phonon->e_steps_high_,
+		       neutron, phonon, ROOTACC);
       if (root != UNUSED){
-        list[(*index)++]=root;
+	list[(*index)++]=root;
       }
-     }
     }
+  }
 
-  
 #undef UNUSED
 #undef MAXRIDD
 #endif