fix(scalar_1D): operator(/) for integer denominator

Author: rouson

src/formal/scalar_1D_s.F90

@@ -68,7 +68,7 @@ pure function cell_center_locations(x_min, x_max, cells) result(x)
 
   module procedure divide_by_integer
     ratio%tensor_1D_t = tensor_1D_t( &
-      values = self%values_/2, x_min = self%x_min_, x_max = self%x_max_, cells = self%cells_, order = self%order_ &
+      values = self%values_/denominator, x_min = self%x_min_, x_max = self%x_max_, cells = self%cells_, order = self%order_ &
     )
     ratio%gradient_operator_1D_ = gradient_operator_1D_t( &
       k = self%order_, dx = (self%x_max_ - self%x_min_)/self%cells_, cells = self%cells_ &

test/scalar_1D_test_m.F90

@@ -83,9 +83,9 @@ function check_divison_operator() result(test_diagnosis)
 
     do order = 2, 4, 2
       associate(scalar_1D => scalar_1D_t(scalar_1D_initializer, order=order, cells=10, x_min=0D0, x_max=10D0) )
-        associate( scalar_1D_squared => scalar_1D/2 )
+        associate( ratio => scalar_1D/2 )
           test_diagnosis = test_diagnosis .also. .all. &
-            (scalar_1D_squared%values() .approximates. scalar_1D%values()/2 .within. tolerance) &
+            (ratio%values() .approximates. scalar_1D%values()/2 .within. tolerance) &
             // string_t(" for order ") // string_t(order)
         end associate
       end associate