formatting

src/stdlib_stats_median.fypp

@@ -87,19 +87,19 @@ contains
             #:for fj in list(range(1, fi)) + list(range(fi+1, rank+1))
               do j${"_" * fj}$ = 1, size(x, ${fj}$)
             #:endfor
-                  x_tmp(:) = x${select_subvector('j', rank, fi)}$
-                  call sort(x_tmp)
-
-                  if (mod(n, 2) == 0) then
-                      res${reduce_subvector('j', rank, fi)}$ = &
-                      #:if t1[0] == 'r'
-                          sum(x_tmp(c:c+1)) / 2._${o1}$
-                      #:else
-                          sum(real(x_tmp(c:c+1), kind=${o1}$) ) / 2._${o1}$
-                      #:endif
-                  else
-                      res${reduce_subvector('j', rank, fi)}$ = x_tmp(c)
-                  end if
+                x_tmp(:) = x${select_subvector('j', rank, fi)}$
+                call sort(x_tmp)
+
+                if (mod(n, 2) == 0) then
+                    res${reduce_subvector('j', rank, fi)}$ = &
+                    #:if t1[0] == 'r'
+                        sum(x_tmp(c:c+1)) / 2._${o1}$
+                    #:else
+                        sum(real(x_tmp(c:c+1), kind=${o1}$) ) / 2._${o1}$
+                    #:endif
+                else
+                    res${reduce_subvector('j', rank, fi)}$ = x_tmp(c)
+                end if
             #:for fj in range(1, rank)
               end do
             #:endfor
@@ -179,28 +179,28 @@ contains
             #:for fj in list(range(1, fi)) + list(range(fi+1, rank+1))
               do j${"_" * fj}$ = 1, size(x, ${fj}$)
             #:endfor
-                  x_tmp = pack(x${select_subvector('j', rank, fi)}$, &
-                                mask${select_subvector('j', rank, fi)}$)
-                  call sort(x_tmp)
-
-                  n = size(x_tmp, kind=int64)
-                  c = floor( (n + 1) / 2._${o1}$, kind=int64 )
-
-                  if (n == 0) then
-                      res${reduce_subvector('j', rank, fi)}$ = &
-                          ieee_value(1._${o1}$, ieee_quiet_nan)
-                  else if (mod(n, 2_int64) == 0) then
-                      res${reduce_subvector('j', rank, fi)}$ = &
-                      #:if t1[0] == 'r'
-                          sum(x_tmp(c:c+1)) / 2._${o1}$
-                      #:else
-                          sum(real(x_tmp(c:c+1), kind=${o1}$)) / 2._${o1}$
-                      #:endif
-                  else if (mod(n, 2_int64) == 1) then
-                      res${reduce_subvector('j', rank, fi)}$ = x_tmp(c)
-                  end if
-
-                  deallocate(x_tmp)
+                x_tmp = pack(x${select_subvector('j', rank, fi)}$, &
+                              mask${select_subvector('j', rank, fi)}$)
+                call sort(x_tmp)
+
+                n = size(x_tmp, kind=int64)
+                c = floor( (n + 1) / 2._${o1}$, kind=int64 )
+
+                if (n == 0) then
+                    res${reduce_subvector('j', rank, fi)}$ = &
+                        ieee_value(1._${o1}$, ieee_quiet_nan)
+                else if (mod(n, 2_int64) == 0) then
+                    res${reduce_subvector('j', rank, fi)}$ = &
+                    #:if t1[0] == 'r'
+                        sum(x_tmp(c:c+1)) / 2._${o1}$
+                    #:else
+                        sum(real(x_tmp(c:c+1), kind=${o1}$)) / 2._${o1}$
+                    #:endif
+                else if (mod(n, 2_int64) == 1) then
+                    res${reduce_subvector('j', rank, fi)}$ = x_tmp(c)
+                end if
+
+                deallocate(x_tmp)
             #:for fj in range(1, rank)
               end do
             #:endfor