star-wf

commit aa827ef74cdde01351403a9969f9b3d1face196d
parent fb1c12d777941290f1e819e23698a928f2cb3451
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Wed, 13 Mar 2024 17:19:28 +0100

Minor correction of comments and small code arrangement

Diffstat:
M
src/swf_H.c
 | 
30
+++++++++++++++---------------

1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/src/swf_H.c b/src/swf_H.c
@@ -23,7 +23,7 @@
 #include <limits.h>
 #include <math.h>
 
-/* Location of the first positive zero of the Bessel function J0.
+/* Location of the first positive zeros of the Bessel function J0.
  *
  * They are precalculated using the gsl_sf_bessel_zero_J0 function and defined
  * in their hexadecimal floating-point representation, to ensure that they match
@@ -242,14 +242,6 @@ swf_H2d_eval(const double x)
   return H2d(x, NULL, NULL);
 }
 
-res_T
-swf_H2d_tabulate
-  (const struct swf_H_tabulate_args* args,
-   struct swf_tabulation** out_tab)
-{
-  return H_tabulate2d(args, out_tab);
-}
-
 double
 swf_H3d_eval(const double x)
 {
@@ -260,18 +252,26 @@ double
 swf_H2d_inverse(const double y)
 {
   return H_inverse2d(y,
-     SWF_H2D_TABULATE_ARGS_DEFAULT.x_min,
-     SWF_H2D_TABULATE_ARGS_DEFAULT.x_max,
-     1.0e-12); /* Epsilon */
+    SWF_H2D_TABULATE_ARGS_DEFAULT.x_min,
+    SWF_H2D_TABULATE_ARGS_DEFAULT.x_max,
+    1.0e-12); /* Epsilon */
 }
 
 double
 swf_H3d_inverse(const double y)
 {
   return H_inverse3d(y,
-     SWF_H3D_TABULATE_ARGS_DEFAULT.x_min,
-     SWF_H3D_TABULATE_ARGS_DEFAULT.x_max,
-     1.0e-12); /* Epsilon */
+    SWF_H3D_TABULATE_ARGS_DEFAULT.x_min,
+    SWF_H3D_TABULATE_ARGS_DEFAULT.x_max,
+    1.0e-12); /* Epsilon */
+}
+
+res_T
+swf_H2d_tabulate
+  (const struct swf_H_tabulate_args* args,
+   struct swf_tabulation** out_tab)
+{
+  return H_tabulate2d(args, out_tab);
 }
 
 res_T