raw_moment_dev: style correction

Author: jvdp1

src/stdlib_experimental_stats_moment.fypp

@@ -108,7 +108,6 @@ contains
           case default
             call error_stop("ERROR (moment): wrong dimension")
         end select
-
         res = res / n
 
       end function ${RName}$
@@ -143,7 +142,8 @@ contains
           case(${fi}$)
             if (present(center)) then
               do i = 1, size(x, ${fi}$)
-                res = res + (real(x${select_subarray(rank, [(fi, 'i')])}$, dp) - center)**order
+                res = res + (real(x${select_subarray(rank, [(fi, 'i')])}$, dp) -&
+                  center)**order
               end do
             else
               do i = 1, size(x, ${fi}$)
@@ -154,7 +154,6 @@ contains
           case default
             call error_stop("ERROR (moment): wrong dimension")
         end select
-
         res = res / n
 
       end function ${RName}$
@@ -234,7 +233,8 @@ contains
           case(${fi}$)
             if (present(center)) then
               do i = 1, size(x, ${fi}$)
-                res = res + merge( (x${select_subarray(rank, [(fi, 'i')])}$ - center)**order,&
+                res = res + merge( (x${select_subarray(rank, [(fi, 'i')])}$ -&
+                  center)**order,&
                   #:if t1[0] == 'r'
                     0._${k1}$,&
                   #:else
@@ -257,7 +257,6 @@ contains
           case default
             call error_stop("ERROR (moment): wrong dimension")
         end select
-
         res = res / n
 
       end function ${RName}$
@@ -281,26 +280,27 @@ contains
 
         n = count(mask, dim)
 
-         res = 0
-         select case(dim)
-           #:for fi in range(1, rank+1)
-           case(${fi}$)
-             if (present(center)) then
-               do i = 1, size(x, ${fi}$)
-                 res = res + merge((real(x${select_subarray(rank, [(fi, 'i')])}$, dp) - center)**order,&
-                                     0._dp, mask${select_subarray(rank, [(fi, 'i')])}$)
-               end do
-             else
-               do i = 1, size(x, ${fi}$)
-                 res = res + merge((real(x${select_subarray(rank, [(fi, 'i')])}$, dp))**order,&
-                                     0._dp, mask${select_subarray(rank, [(fi, 'i')])}$)
-               end do
-             end if
-           #:endfor
-           case default
-             call error_stop("ERROR (moment): wrong dimension")
-         end select
-
+        res = 0
+        select case(dim)
+          #:for fi in range(1, rank+1)
+          case(${fi}$)
+            if (present(center)) then
+              do i = 1, size(x, ${fi}$)
+                res = res + merge((real(x${select_subarray(rank, [(fi, 'i')])}$, dp) -&
+                                    center)**order,&
+                                    0._dp, mask${select_subarray(rank, [(fi, 'i')])}$)
+              end do
+            else
+              do i = 1, size(x, ${fi}$)
+                res = res + merge((real(x${select_subarray(rank, [(fi, 'i')])}$, dp))&
+                                    **order,&
+                                    0._dp, mask${select_subarray(rank, [(fi, 'i')])}$)
+              end do
+            end if
+          #:endfor
+          case default
+            call error_stop("ERROR (moment): wrong dimension")
+        end select
         res = res / n
 
       end function ${RName}$