diff --git a/src/stdlib_experimental_stat_mean.f90 b/src/stdlib_experimental_stat_mean.f90
index 4bfb18186..4e48ea35b 100644
--- a/src/stdlib_experimental_stat_mean.f90
+++ b/src/stdlib_experimental_stat_mean.f90
@@ -183,11 +183,11 @@ module function mean_2_int8_dp(x, dim) result(res)
     select case(dim)
      case(1)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(:,i), dp))
+            res(i) = mean_1_int8_dp(x(:,i))
         end do
      case(2)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(i,:), dp))
+            res(i) = mean_1_int8_dp(x(i,:))
         end do
      case default
         call error_stop("ERROR (mean): wrong dimension")
@@ -204,11 +204,11 @@ module function mean_2_int16_dp(x, dim) result(res)
     select case(dim)
      case(1)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(:,i), dp))
+            res(i) = mean_1_int16_dp(x(:,i))
         end do
      case(2)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(i,:), dp))
+            res(i) = mean_1_int16_dp(x(i,:))
         end do
      case default
         call error_stop("ERROR (mean): wrong dimension")
@@ -225,11 +225,11 @@ module function mean_2_int32_dp(x, dim) result(res)
     select case(dim)
      case(1)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(:,i), dp))
+            res(i) = mean_1_int32_dp(x(:,i))
         end do
      case(2)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(i,:), dp))
+            res(i) = mean_1_int32_dp(x(i,:))
         end do
      case default
         call error_stop("ERROR (mean): wrong dimension")
@@ -246,11 +246,11 @@ module function mean_2_int64_dp(x, dim) result(res)
     select case(dim)
      case(1)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(:,i), dp))
+            res(i) = mean_1_int64_dp(x(:,i))
         end do
      case(2)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(i,:), dp))
+            res(i) = mean_1_int64_dp(x(i,:))
         end do
      case default
         call error_stop("ERROR (mean): wrong dimension")
@@ -9500,19 +9500,19 @@ module function mean_3_int8_dp(x, dim) result(res)
      case(1)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(:,i,i_), dp))
+          res(i,i_) = mean_1_int8_dp(x(:,i,i_))
         end do
        end do
      case(2)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(i,:,i_), dp))
+          res(i,i_) = mean_1_int8_dp(x(i,:,i_))
         end do
        end do
      case(3)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(i,i_,:), dp))
+          res(i,i_) = mean_1_int8_dp(x(i,i_,:))
         end do
        end do
      case default
@@ -9535,7 +9535,7 @@ module function mean_4_int8_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(:,i,i_,i__), dp))
+           res(i,i_,i__) = mean_1_int8_dp(x(:,i,i_,i__))
          end do
         end do
        end do
@@ -9543,7 +9543,7 @@ module function mean_4_int8_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,:,i_,i__), dp))
+           res(i,i_,i__) = mean_1_int8_dp(x(i,:,i_,i__))
          end do
         end do
        end do
@@ -9551,7 +9551,7 @@ module function mean_4_int8_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,i_,:,i__), dp))
+           res(i,i_,i__) = mean_1_int8_dp(x(i,i_,:,i__))
          end do
         end do
        end do
@@ -9559,7 +9559,7 @@ module function mean_4_int8_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,i_,i__,:), dp))
+           res(i,i_,i__) = mean_1_int8_dp(x(i,i_,i__,:))
          end do
         end do
        end do
@@ -9585,7 +9585,7 @@ module function mean_5_int8_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(:,i,i_,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int8_dp(x(:,i,i_,i__,i___))
           end do
          end do
         end do
@@ -9595,7 +9595,7 @@ module function mean_5_int8_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,:,i_,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int8_dp(x(i,:,i_,i__,i___))
           end do
          end do
         end do
@@ -9605,7 +9605,7 @@ module function mean_5_int8_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,:,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int8_dp(x(i,i_,:,i__,i___))
           end do
          end do
         end do
@@ -9615,7 +9615,7 @@ module function mean_5_int8_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,i__,:,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int8_dp(x(i,i_,i__,:,i___))
           end do
          end do
         end do
@@ -9625,7 +9625,7 @@ module function mean_5_int8_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,i__,i___,:), dp))
+            res(i,i_,i__,i___) = mean_1_int8_dp(x(i,i_,i__,i___,:))
           end do
          end do
         end do
@@ -9654,7 +9654,7 @@ module function mean_6_int8_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int8_dp(x(:,i,i_,i__,i___,i____))
            end do
           end do
          end do
@@ -9666,7 +9666,7 @@ module function mean_6_int8_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int8_dp(x(i,:,i_,i__,i___,i____))
            end do
           end do
          end do
@@ -9678,7 +9678,7 @@ module function mean_6_int8_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int8_dp(x(i,i_,:,i__,i___,i____))
            end do
           end do
          end do
@@ -9690,7 +9690,7 @@ module function mean_6_int8_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int8_dp(x(i,i_,i__,:,i___,i____))
            end do
           end do
          end do
@@ -9702,7 +9702,7 @@ module function mean_6_int8_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int8_dp(x(i,i_,i__,i___,:,i____))
            end do
           end do
          end do
@@ -9714,7 +9714,7 @@ module function mean_6_int8_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int8_dp(x(i,i_,i__,i___,i____,:))
            end do
           end do
          end do
@@ -9746,7 +9746,7 @@ module function mean_7_int8_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -9760,7 +9760,7 @@ module function mean_7_int8_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -9774,7 +9774,7 @@ module function mean_7_int8_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -9788,7 +9788,7 @@ module function mean_7_int8_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____))
             end do
            end do
           end do
@@ -9802,7 +9802,7 @@ module function mean_7_int8_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____))
             end do
            end do
           end do
@@ -9816,7 +9816,7 @@ module function mean_7_int8_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____))
             end do
            end do
           end do
@@ -9830,7 +9830,7 @@ module function mean_7_int8_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:))
             end do
            end do
           end do
@@ -9865,7 +9865,7 @@ module function mean_8_int8_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -9881,7 +9881,7 @@ module function mean_8_int8_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -9897,7 +9897,7 @@ module function mean_8_int8_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -9913,7 +9913,7 @@ module function mean_8_int8_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -9929,7 +9929,7 @@ module function mean_8_int8_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____,i______))
              end do
             end do
            end do
@@ -9945,7 +9945,7 @@ module function mean_8_int8_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____,i______))
              end do
             end do
            end do
@@ -9961,7 +9961,7 @@ module function mean_8_int8_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:,i______))
              end do
             end do
            end do
@@ -9977,7 +9977,7 @@ module function mean_8_int8_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,:))
              end do
             end do
            end do
@@ -10015,8 +10015,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -10034,8 +10033,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -10053,8 +10051,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -10072,8 +10069,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -10091,8 +10087,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -10110,8 +10105,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______))
               end do
              end do
             end do
@@ -10129,8 +10123,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______))
               end do
              end do
             end do
@@ -10148,8 +10141,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______))
               end do
              end do
             end do
@@ -10167,8 +10159,7 @@ module function mean_9_int8_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,&
-                    &:), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:))
               end do
              end do
             end do
@@ -10209,8 +10200,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____,i______&
+                     &,i_______,i________))
                end do
               end do
              end do
@@ -10230,8 +10221,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____,i______&
+                     &,i_______,i________))
                end do
               end do
              end do
@@ -10251,8 +10242,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____,i______&
+                     &,i_______,i________))
                end do
               end do
              end do
@@ -10272,8 +10263,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____,i______&
+                     &,i_______,i________))
                end do
               end do
              end do
@@ -10293,8 +10284,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____,i______&
+                     &,i_______,i________))
                end do
               end do
              end do
@@ -10314,8 +10305,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____,i______&
+                     &,i_______,i________))
                end do
               end do
              end do
@@ -10335,8 +10326,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:,i______&
+                     &,i_______,i________))
                end do
               end do
              end do
@@ -10356,8 +10347,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,:,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,:&
+                     &,i_______,i________))
                end do
               end do
              end do
@@ -10377,8 +10368,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,i_______,:,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i&
+                     &_______,:,i________))
                end do
               end do
              end do
@@ -10398,8 +10389,8 @@ module function mean_10_int8_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,i_______,i________,:), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i&
+                     &_______,i________,:))
                end do
               end do
              end do
@@ -10444,7 +10435,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -10467,7 +10458,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -10490,7 +10481,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -10513,7 +10504,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -10536,7 +10527,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -10559,7 +10550,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -10582,7 +10573,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________), dp))
+                      & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -10605,7 +10596,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________), dp))
+                      & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -10628,7 +10619,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________), dp))
+                      & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________))
                 end do
                end do
               end do
@@ -10651,7 +10642,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________), dp))
+                      & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________))
                 end do
                end do
               end do
@@ -10674,7 +10665,7 @@ module function mean_11_int8_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:), dp))
+                      & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:))
                 end do
                end do
               end do
@@ -10722,7 +10713,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10747,7 +10738,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10772,7 +10763,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10797,7 +10788,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10822,7 +10813,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10847,7 +10838,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10872,7 +10863,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10897,7 +10888,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10922,7 +10913,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -10947,7 +10938,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________))
                  end do
                 end do
                end do
@@ -10972,7 +10963,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________))
                  end do
                 end do
                end do
@@ -10997,7 +10988,7 @@ module function mean_12_int8_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:), dp))
+                       & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:))
                  end do
                 end do
                end do
@@ -11048,8 +11039,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11076,8 +11067,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11104,8 +11095,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11132,8 +11123,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11160,8 +11151,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11188,8 +11179,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11216,8 +11207,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11244,8 +11235,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11272,8 +11263,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11300,8 +11291,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11328,8 +11319,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11356,8 +11347,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i_____&
-                        &______), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i________&
+                        &___))
                   end do
                  end do
                 end do
@@ -11384,8 +11375,8 @@ module function mean_13_int8_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
-                        &____,:), dp))
+                        & mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__________&
+                        &_,:))
                   end do
                  end do
                 end do
@@ -11439,8 +11430,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11469,8 +11460,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11499,8 +11490,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11529,8 +11520,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11559,8 +11550,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11589,8 +11580,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11619,8 +11610,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11649,8 +11640,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11679,8 +11670,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11709,8 +11700,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11739,8 +11730,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11769,8 +11760,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i_____&
+                         &______,i____________))
                    end do
                   end do
                  end do
@@ -11799,8 +11790,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
-                         &_______,:,i____________), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                         &____,:,i____________))
                    end do
                   end do
                  end do
@@ -11829,8 +11820,8 @@ module function mean_14_int8_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
-                         &_______,i____________,:), dp))
+                         & = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                         &____,i____________,:))
                    end do
                   end do
                  end do
@@ -11888,8 +11879,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -11920,8 +11911,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -11952,8 +11943,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -11984,8 +11975,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12016,8 +12007,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12048,8 +12039,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12080,8 +12071,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12112,8 +12103,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12144,8 +12135,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12176,8 +12167,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12208,8 +12199,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__&
+                          &________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12240,8 +12231,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,:,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i____&
+                          &______,:,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12272,8 +12263,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,:,i____________,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i____&
+                          &______,i___________,:,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -12304,8 +12295,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,i____________,:,i_____________), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i____&
+                          &______,i___________,i____________,:,i_____________))
                     end do
                    end do
                   end do
@@ -12336,8 +12327,8 @@ module function mean_15_int8_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,i____________,i_____________,:), dp))
+                          &_____________) = mean_1_int8_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i____&
+                          &______,i___________,i____________,i_____________,:))
                     end do
                    end do
                   end do
@@ -12370,19 +12361,19 @@ module function mean_3_int16_dp(x, dim) result(res)
      case(1)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(:,i,i_), dp))
+          res(i,i_) = mean_1_int16_dp(x(:,i,i_))
         end do
        end do
      case(2)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(i,:,i_), dp))
+          res(i,i_) = mean_1_int16_dp(x(i,:,i_))
         end do
        end do
      case(3)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(i,i_,:), dp))
+          res(i,i_) = mean_1_int16_dp(x(i,i_,:))
         end do
        end do
      case default
@@ -12405,7 +12396,7 @@ module function mean_4_int16_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(:,i,i_,i__), dp))
+           res(i,i_,i__) = mean_1_int16_dp(x(:,i,i_,i__))
          end do
         end do
        end do
@@ -12413,7 +12404,7 @@ module function mean_4_int16_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,:,i_,i__), dp))
+           res(i,i_,i__) = mean_1_int16_dp(x(i,:,i_,i__))
          end do
         end do
        end do
@@ -12421,7 +12412,7 @@ module function mean_4_int16_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,i_,:,i__), dp))
+           res(i,i_,i__) = mean_1_int16_dp(x(i,i_,:,i__))
          end do
         end do
        end do
@@ -12429,7 +12420,7 @@ module function mean_4_int16_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,i_,i__,:), dp))
+           res(i,i_,i__) = mean_1_int16_dp(x(i,i_,i__,:))
          end do
         end do
        end do
@@ -12455,7 +12446,7 @@ module function mean_5_int16_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(:,i,i_,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int16_dp(x(:,i,i_,i__,i___))
           end do
          end do
         end do
@@ -12465,7 +12456,7 @@ module function mean_5_int16_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,:,i_,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int16_dp(x(i,:,i_,i__,i___))
           end do
          end do
         end do
@@ -12475,7 +12466,7 @@ module function mean_5_int16_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,:,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int16_dp(x(i,i_,:,i__,i___))
           end do
          end do
         end do
@@ -12485,7 +12476,7 @@ module function mean_5_int16_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,i__,:,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int16_dp(x(i,i_,i__,:,i___))
           end do
          end do
         end do
@@ -12495,7 +12486,7 @@ module function mean_5_int16_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,i__,i___,:), dp))
+            res(i,i_,i__,i___) = mean_1_int16_dp(x(i,i_,i__,i___,:))
           end do
          end do
         end do
@@ -12524,7 +12515,7 @@ module function mean_6_int16_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int16_dp(x(:,i,i_,i__,i___,i____))
            end do
           end do
          end do
@@ -12536,7 +12527,7 @@ module function mean_6_int16_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int16_dp(x(i,:,i_,i__,i___,i____))
            end do
           end do
          end do
@@ -12548,7 +12539,7 @@ module function mean_6_int16_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int16_dp(x(i,i_,:,i__,i___,i____))
            end do
           end do
          end do
@@ -12560,7 +12551,7 @@ module function mean_6_int16_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int16_dp(x(i,i_,i__,:,i___,i____))
            end do
           end do
          end do
@@ -12572,7 +12563,7 @@ module function mean_6_int16_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int16_dp(x(i,i_,i__,i___,:,i____))
            end do
           end do
          end do
@@ -12584,7 +12575,7 @@ module function mean_6_int16_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int16_dp(x(i,i_,i__,i___,i____,:))
            end do
           end do
          end do
@@ -12616,7 +12607,7 @@ module function mean_7_int16_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -12630,7 +12621,7 @@ module function mean_7_int16_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -12644,7 +12635,7 @@ module function mean_7_int16_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -12658,7 +12649,7 @@ module function mean_7_int16_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____))
             end do
            end do
           end do
@@ -12672,7 +12663,7 @@ module function mean_7_int16_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____))
             end do
            end do
           end do
@@ -12686,7 +12677,7 @@ module function mean_7_int16_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____))
             end do
            end do
           end do
@@ -12700,7 +12691,7 @@ module function mean_7_int16_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:))
             end do
            end do
           end do
@@ -12735,7 +12726,7 @@ module function mean_8_int16_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -12751,7 +12742,7 @@ module function mean_8_int16_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -12767,7 +12758,7 @@ module function mean_8_int16_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -12783,7 +12774,7 @@ module function mean_8_int16_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -12799,7 +12790,7 @@ module function mean_8_int16_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____,i______))
              end do
             end do
            end do
@@ -12815,7 +12806,7 @@ module function mean_8_int16_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____,i______))
              end do
             end do
            end do
@@ -12831,7 +12822,7 @@ module function mean_8_int16_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:,i______))
              end do
             end do
            end do
@@ -12847,7 +12838,7 @@ module function mean_8_int16_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,:))
              end do
             end do
            end do
@@ -12885,8 +12876,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -12904,8 +12894,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -12923,8 +12912,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -12942,8 +12930,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -12961,8 +12948,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -12980,8 +12966,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______))
               end do
              end do
             end do
@@ -12999,8 +12984,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______))
               end do
              end do
             end do
@@ -13018,8 +13002,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______))
               end do
              end do
             end do
@@ -13037,8 +13020,7 @@ module function mean_9_int16_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,&
-                    &:), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:))
               end do
              end do
             end do
@@ -13079,8 +13061,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -13100,8 +13082,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -13121,8 +13103,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -13142,8 +13124,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -13163,8 +13145,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -13184,8 +13166,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -13205,8 +13187,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -13226,8 +13208,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,:,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &:,i_______,i________))
                end do
               end do
              end do
@@ -13247,8 +13229,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,i_______,:,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &i_______,:,i________))
                end do
               end do
              end do
@@ -13268,8 +13250,8 @@ module function mean_10_int16_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,i_______,i________,:), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &i_______,i________,:))
                end do
               end do
              end do
@@ -13314,7 +13296,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -13337,7 +13319,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -13360,7 +13342,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -13383,7 +13365,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -13406,7 +13388,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -13429,7 +13411,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -13452,7 +13434,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________), dp))
+                      & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -13475,7 +13457,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________), dp))
+                      & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -13498,7 +13480,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________), dp))
+                      & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________))
                 end do
                end do
               end do
@@ -13521,7 +13503,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________), dp))
+                      & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________))
                 end do
                end do
               end do
@@ -13544,7 +13526,7 @@ module function mean_11_int16_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:), dp))
+                      & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:))
                 end do
                end do
               end do
@@ -13592,7 +13574,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13617,7 +13599,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13642,7 +13624,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13667,7 +13649,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13692,7 +13674,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13717,7 +13699,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13742,7 +13724,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13767,7 +13749,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13792,7 +13774,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -13817,7 +13799,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________))
                  end do
                 end do
                end do
@@ -13842,7 +13824,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________))
                  end do
                 end do
                end do
@@ -13867,7 +13849,7 @@ module function mean_12_int16_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:), dp))
+                       & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:))
                  end do
                 end do
                end do
@@ -13918,8 +13900,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -13946,8 +13928,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -13974,8 +13956,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14002,8 +13984,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14030,8 +14012,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14058,8 +14040,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14086,8 +14068,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14114,8 +14096,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14142,8 +14124,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14170,8 +14152,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14198,8 +14180,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14226,8 +14208,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i_____&
-                        &______), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -14254,8 +14236,8 @@ module function mean_13_int16_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
-                        &____,:), dp))
+                        & mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_________&
+                        &__,:))
                   end do
                  end do
                 end do
@@ -14309,8 +14291,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14339,8 +14321,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14369,8 +14351,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14399,8 +14381,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14429,8 +14411,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14459,8 +14441,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14489,8 +14471,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14519,8 +14501,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14549,8 +14531,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14579,8 +14561,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14609,8 +14591,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14639,8 +14621,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -14669,8 +14651,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
-                         &_______,:,i____________), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i______&
+                         &_____,:,i____________))
                    end do
                   end do
                  end do
@@ -14699,8 +14681,8 @@ module function mean_14_int16_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
-                         &_______,i____________,:), dp))
+                         & = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i______&
+                         &_____,i____________,:))
                    end do
                   end do
                  end do
@@ -14758,8 +14740,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -14790,8 +14772,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -14822,8 +14804,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -14854,8 +14836,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -14886,8 +14868,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -14918,8 +14900,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -14950,8 +14932,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -14982,8 +14964,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -15014,8 +14996,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -15046,8 +15028,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -15078,8 +15060,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -15110,8 +15092,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,:,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,:,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -15142,8 +15124,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,:,i____________,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,:,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -15174,8 +15156,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,i____________,:,i_____________), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,i____________,:,i_____________))
                     end do
                    end do
                   end do
@@ -15206,8 +15188,8 @@ module function mean_15_int16_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,i____________,i_____________,:), dp))
+                          &_____________) = mean_1_int16_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,i____________,i_____________,:))
                     end do
                    end do
                   end do
@@ -15240,19 +15222,19 @@ module function mean_3_int32_dp(x, dim) result(res)
      case(1)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(:,i,i_), dp))
+          res(i,i_) = mean_1_int32_dp(x(:,i,i_))
         end do
        end do
      case(2)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(i,:,i_), dp))
+          res(i,i_) = mean_1_int32_dp(x(i,:,i_))
         end do
        end do
      case(3)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(i,i_,:), dp))
+          res(i,i_) = mean_1_int32_dp(x(i,i_,:))
         end do
        end do
      case default
@@ -15275,7 +15257,7 @@ module function mean_4_int32_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(:,i,i_,i__), dp))
+           res(i,i_,i__) = mean_1_int32_dp(x(:,i,i_,i__))
          end do
         end do
        end do
@@ -15283,7 +15265,7 @@ module function mean_4_int32_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,:,i_,i__), dp))
+           res(i,i_,i__) = mean_1_int32_dp(x(i,:,i_,i__))
          end do
         end do
        end do
@@ -15291,7 +15273,7 @@ module function mean_4_int32_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,i_,:,i__), dp))
+           res(i,i_,i__) = mean_1_int32_dp(x(i,i_,:,i__))
          end do
         end do
        end do
@@ -15299,7 +15281,7 @@ module function mean_4_int32_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,i_,i__,:), dp))
+           res(i,i_,i__) = mean_1_int32_dp(x(i,i_,i__,:))
          end do
         end do
        end do
@@ -15325,7 +15307,7 @@ module function mean_5_int32_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(:,i,i_,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int32_dp(x(:,i,i_,i__,i___))
           end do
          end do
         end do
@@ -15335,7 +15317,7 @@ module function mean_5_int32_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,:,i_,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int32_dp(x(i,:,i_,i__,i___))
           end do
          end do
         end do
@@ -15345,7 +15327,7 @@ module function mean_5_int32_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,:,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int32_dp(x(i,i_,:,i__,i___))
           end do
          end do
         end do
@@ -15355,7 +15337,7 @@ module function mean_5_int32_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,i__,:,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int32_dp(x(i,i_,i__,:,i___))
           end do
          end do
         end do
@@ -15365,7 +15347,7 @@ module function mean_5_int32_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,i__,i___,:), dp))
+            res(i,i_,i__,i___) = mean_1_int32_dp(x(i,i_,i__,i___,:))
           end do
          end do
         end do
@@ -15394,7 +15376,7 @@ module function mean_6_int32_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int32_dp(x(:,i,i_,i__,i___,i____))
            end do
           end do
          end do
@@ -15406,7 +15388,7 @@ module function mean_6_int32_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int32_dp(x(i,:,i_,i__,i___,i____))
            end do
           end do
          end do
@@ -15418,7 +15400,7 @@ module function mean_6_int32_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int32_dp(x(i,i_,:,i__,i___,i____))
            end do
           end do
          end do
@@ -15430,7 +15412,7 @@ module function mean_6_int32_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int32_dp(x(i,i_,i__,:,i___,i____))
            end do
           end do
          end do
@@ -15442,7 +15424,7 @@ module function mean_6_int32_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int32_dp(x(i,i_,i__,i___,:,i____))
            end do
           end do
          end do
@@ -15454,7 +15436,7 @@ module function mean_6_int32_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int32_dp(x(i,i_,i__,i___,i____,:))
            end do
           end do
          end do
@@ -15486,7 +15468,7 @@ module function mean_7_int32_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -15500,7 +15482,7 @@ module function mean_7_int32_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -15514,7 +15496,7 @@ module function mean_7_int32_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -15528,7 +15510,7 @@ module function mean_7_int32_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____))
             end do
            end do
           end do
@@ -15542,7 +15524,7 @@ module function mean_7_int32_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____))
             end do
            end do
           end do
@@ -15556,7 +15538,7 @@ module function mean_7_int32_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____))
             end do
            end do
           end do
@@ -15570,7 +15552,7 @@ module function mean_7_int32_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:))
             end do
            end do
           end do
@@ -15605,7 +15587,7 @@ module function mean_8_int32_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -15621,7 +15603,7 @@ module function mean_8_int32_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -15637,7 +15619,7 @@ module function mean_8_int32_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -15653,7 +15635,7 @@ module function mean_8_int32_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -15669,7 +15651,7 @@ module function mean_8_int32_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____,i______))
              end do
             end do
            end do
@@ -15685,7 +15667,7 @@ module function mean_8_int32_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____,i______))
              end do
             end do
            end do
@@ -15701,7 +15683,7 @@ module function mean_8_int32_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:,i______))
              end do
             end do
            end do
@@ -15717,7 +15699,7 @@ module function mean_8_int32_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,:))
              end do
             end do
            end do
@@ -15755,8 +15737,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -15774,8 +15755,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -15793,8 +15773,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -15812,8 +15791,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -15831,8 +15809,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -15850,8 +15827,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______))
               end do
              end do
             end do
@@ -15869,8 +15845,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______))
               end do
              end do
             end do
@@ -15888,8 +15863,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______))
               end do
              end do
             end do
@@ -15907,8 +15881,7 @@ module function mean_9_int32_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,&
-                    &:), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:))
               end do
              end do
             end do
@@ -15949,8 +15922,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -15970,8 +15943,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -15991,8 +15964,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -16012,8 +15985,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -16033,8 +16006,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -16054,8 +16027,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -16075,8 +16048,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -16096,8 +16069,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,:,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &:,i_______,i________))
                end do
               end do
              end do
@@ -16117,8 +16090,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,i_______,:,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &i_______,:,i________))
                end do
               end do
              end do
@@ -16138,8 +16111,8 @@ module function mean_10_int32_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,i_______,i________,:), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &i_______,i________,:))
                end do
               end do
              end do
@@ -16184,7 +16157,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -16207,7 +16180,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -16230,7 +16203,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -16253,7 +16226,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -16276,7 +16249,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -16299,7 +16272,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -16322,7 +16295,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________), dp))
+                      & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -16345,7 +16318,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________), dp))
+                      & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -16368,7 +16341,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________), dp))
+                      & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________))
                 end do
                end do
               end do
@@ -16391,7 +16364,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________), dp))
+                      & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________))
                 end do
                end do
               end do
@@ -16414,7 +16387,7 @@ module function mean_11_int32_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:), dp))
+                      & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:))
                 end do
                end do
               end do
@@ -16462,7 +16435,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16487,7 +16460,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16512,7 +16485,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16537,7 +16510,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16562,7 +16535,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16587,7 +16560,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16612,7 +16585,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16637,7 +16610,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16662,7 +16635,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -16687,7 +16660,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________))
                  end do
                 end do
                end do
@@ -16712,7 +16685,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________))
                  end do
                 end do
                end do
@@ -16737,7 +16710,7 @@ module function mean_12_int32_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:), dp))
+                       & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:))
                  end do
                 end do
                end do
@@ -16788,8 +16761,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -16816,8 +16789,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -16844,8 +16817,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -16872,8 +16845,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -16900,8 +16873,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -16928,8 +16901,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -16956,8 +16929,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -16984,8 +16957,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -17012,8 +16985,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -17040,8 +17013,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -17068,8 +17041,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -17096,8 +17069,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i_____&
-                        &______), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -17124,8 +17097,8 @@ module function mean_13_int32_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
-                        &____,:), dp))
+                        & mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_________&
+                        &__,:))
                   end do
                  end do
                 end do
@@ -17179,8 +17152,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17209,8 +17182,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17239,8 +17212,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17269,8 +17242,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17299,8 +17272,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17329,8 +17302,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17359,8 +17332,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17389,8 +17362,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17419,8 +17392,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17449,8 +17422,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17479,8 +17452,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17509,8 +17482,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -17539,8 +17512,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
-                         &_______,:,i____________), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i______&
+                         &_____,:,i____________))
                    end do
                   end do
                  end do
@@ -17569,8 +17542,8 @@ module function mean_14_int32_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
-                         &_______,i____________,:), dp))
+                         & = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i______&
+                         &_____,i____________,:))
                    end do
                   end do
                  end do
@@ -17628,8 +17601,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17660,8 +17633,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17692,8 +17665,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17724,8 +17697,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17756,8 +17729,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17788,8 +17761,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17820,8 +17793,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17852,8 +17825,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17884,8 +17857,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17916,8 +17889,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17948,8 +17921,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -17980,8 +17953,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,:,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,:,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -18012,8 +17985,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,:,i____________,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,:,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -18044,8 +18017,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,i____________,:,i_____________), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,i____________,:,i_____________))
                     end do
                    end do
                   end do
@@ -18076,8 +18049,8 @@ module function mean_15_int32_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,i____________,i_____________,:), dp))
+                          &_____________) = mean_1_int32_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,i____________,i_____________,:))
                     end do
                    end do
                   end do
@@ -18110,19 +18083,19 @@ module function mean_3_int64_dp(x, dim) result(res)
      case(1)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(:,i,i_), dp))
+          res(i,i_) = mean_1_int64_dp(x(:,i,i_))
         end do
        end do
      case(2)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(i,:,i_), dp))
+          res(i,i_) = mean_1_int64_dp(x(i,:,i_))
         end do
        end do
      case(3)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
-          res(i,i_) = mean_1_dp_dp(real(x(i,i_,:), dp))
+          res(i,i_) = mean_1_int64_dp(x(i,i_,:))
         end do
        end do
      case default
@@ -18145,7 +18118,7 @@ module function mean_4_int64_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(:,i,i_,i__), dp))
+           res(i,i_,i__) = mean_1_int64_dp(x(:,i,i_,i__))
          end do
         end do
        end do
@@ -18153,7 +18126,7 @@ module function mean_4_int64_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,:,i_,i__), dp))
+           res(i,i_,i__) = mean_1_int64_dp(x(i,:,i_,i__))
          end do
         end do
        end do
@@ -18161,7 +18134,7 @@ module function mean_4_int64_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,i_,:,i__), dp))
+           res(i,i_,i__) = mean_1_int64_dp(x(i,i_,:,i__))
          end do
         end do
        end do
@@ -18169,7 +18142,7 @@ module function mean_4_int64_dp(x, dim) result(res)
        do i =1, size(res, 1)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
-           res(i,i_,i__) = mean_1_dp_dp(real(x(i,i_,i__,:), dp))
+           res(i,i_,i__) = mean_1_int64_dp(x(i,i_,i__,:))
          end do
         end do
        end do
@@ -18195,7 +18168,7 @@ module function mean_5_int64_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(:,i,i_,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int64_dp(x(:,i,i_,i__,i___))
           end do
          end do
         end do
@@ -18205,7 +18178,7 @@ module function mean_5_int64_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,:,i_,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int64_dp(x(i,:,i_,i__,i___))
           end do
          end do
         end do
@@ -18215,7 +18188,7 @@ module function mean_5_int64_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,:,i__,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int64_dp(x(i,i_,:,i__,i___))
           end do
          end do
         end do
@@ -18225,7 +18198,7 @@ module function mean_5_int64_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,i__,:,i___), dp))
+            res(i,i_,i__,i___) = mean_1_int64_dp(x(i,i_,i__,:,i___))
           end do
          end do
         end do
@@ -18235,7 +18208,7 @@ module function mean_5_int64_dp(x, dim) result(res)
         do i_ =1, size(res, 2)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
-            res(i,i_,i__,i___) = mean_1_dp_dp(real(x(i,i_,i__,i___,:), dp))
+            res(i,i_,i__,i___) = mean_1_int64_dp(x(i,i_,i__,i___,:))
           end do
          end do
         end do
@@ -18264,7 +18237,7 @@ module function mean_6_int64_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int64_dp(x(:,i,i_,i__,i___,i____))
            end do
           end do
          end do
@@ -18276,7 +18249,7 @@ module function mean_6_int64_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int64_dp(x(i,:,i_,i__,i___,i____))
            end do
           end do
          end do
@@ -18288,7 +18261,7 @@ module function mean_6_int64_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int64_dp(x(i,i_,:,i__,i___,i____))
            end do
           end do
          end do
@@ -18300,7 +18273,7 @@ module function mean_6_int64_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int64_dp(x(i,i_,i__,:,i___,i____))
            end do
           end do
          end do
@@ -18312,7 +18285,7 @@ module function mean_6_int64_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int64_dp(x(i,i_,i__,i___,:,i____))
            end do
           end do
          end do
@@ -18324,7 +18297,7 @@ module function mean_6_int64_dp(x, dim) result(res)
          do i__ =1, size(res, 3)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
-             res(i,i_,i__,i___,i____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:), dp))
+             res(i,i_,i__,i___,i____) = mean_1_int64_dp(x(i,i_,i__,i___,i____,:))
            end do
           end do
          end do
@@ -18356,7 +18329,7 @@ module function mean_7_int64_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -18370,7 +18343,7 @@ module function mean_7_int64_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -18384,7 +18357,7 @@ module function mean_7_int64_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____))
             end do
            end do
           end do
@@ -18398,7 +18371,7 @@ module function mean_7_int64_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____))
             end do
            end do
           end do
@@ -18412,7 +18385,7 @@ module function mean_7_int64_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____))
             end do
            end do
           end do
@@ -18426,7 +18399,7 @@ module function mean_7_int64_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____))
             end do
            end do
           end do
@@ -18440,7 +18413,7 @@ module function mean_7_int64_dp(x, dim) result(res)
           do i___ =1, size(res, 4)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
-              res(i,i_,i__,i___,i____,i_____) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:), dp))
+              res(i,i_,i__,i___,i____,i_____) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:))
             end do
            end do
           end do
@@ -18475,7 +18448,7 @@ module function mean_8_int64_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -18491,7 +18464,7 @@ module function mean_8_int64_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -18507,7 +18480,7 @@ module function mean_8_int64_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -18523,7 +18496,7 @@ module function mean_8_int64_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____,i______))
              end do
             end do
            end do
@@ -18539,7 +18512,7 @@ module function mean_8_int64_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____,i______))
              end do
             end do
            end do
@@ -18555,7 +18528,7 @@ module function mean_8_int64_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____,i______))
              end do
             end do
            end do
@@ -18571,7 +18544,7 @@ module function mean_8_int64_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:,i______))
              end do
             end do
            end do
@@ -18587,7 +18560,7 @@ module function mean_8_int64_dp(x, dim) result(res)
            do i____ =1, size(res, 5)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
-               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:), dp))
+               res(i,i_,i__,i___,i____,i_____,i______) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,:))
              end do
             end do
            end do
@@ -18625,8 +18598,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -18644,8 +18616,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -18663,8 +18634,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -18682,8 +18652,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -18701,8 +18670,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______))
               end do
              end do
             end do
@@ -18720,8 +18688,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______))
               end do
              end do
             end do
@@ -18739,8 +18706,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______))
               end do
              end do
             end do
@@ -18758,8 +18724,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i______&
-                    &_), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______))
               end do
              end do
             end do
@@ -18777,8 +18742,7 @@ module function mean_9_int64_dp(x, dim) result(res)
             do i_____ =1, size(res, 6)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
-                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,&
-                    &:), dp))
+                res(i,i_,i__,i___,i____,i_____,i______,i_______) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:))
               end do
              end do
             end do
@@ -18819,8 +18783,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -18840,8 +18804,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -18861,8 +18825,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -18882,8 +18846,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -18903,8 +18867,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -18924,8 +18888,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -18945,8 +18909,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i___&
-                     &___,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:,i_____&
+                     &_,i_______,i________))
                end do
               end do
              end do
@@ -18966,8 +18930,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,:,i_______,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &:,i_______,i________))
                end do
               end do
              end do
@@ -18987,8 +18951,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,i_______,:,i________), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &i_______,:,i________))
                end do
               end do
              end do
@@ -19008,8 +18972,8 @@ module function mean_10_int64_dp(x, dim) result(res)
              do i______ =1, size(res, 7)
               do i_______ =1, size(res, 8)
                do i________ =1, size(res, 9)
-                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i_____&
-                     &_,i_______,i________,:), dp))
+                 res(i,i_,i__,i___,i____,i_____,i______,i_______,i________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,&
+                     &i_______,i________,:))
                end do
               end do
              end do
@@ -19054,7 +19018,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -19077,7 +19041,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -19100,7 +19064,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -19123,7 +19087,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -19146,7 +19110,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -19169,7 +19133,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________), dp))
+                      & mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -19192,7 +19156,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________), dp))
+                      & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -19215,7 +19179,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________), dp))
+                      & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________))
                 end do
                end do
               end do
@@ -19238,7 +19202,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________), dp))
+                      & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________))
                 end do
                end do
               end do
@@ -19261,7 +19225,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________), dp))
+                      & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________))
                 end do
                end do
               end do
@@ -19284,7 +19248,7 @@ module function mean_11_int64_dp(x, dim) result(res)
                do i________ =1, size(res, 9)
                 do i_________ =1, size(res, 10)
                   res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________) =&
-                      & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:), dp))
+                      & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:))
                 end do
                end do
               end do
@@ -19332,7 +19296,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19357,7 +19321,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19382,7 +19346,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19407,7 +19371,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19432,7 +19396,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19457,7 +19421,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19482,7 +19446,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19507,7 +19471,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19532,7 +19496,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________))
                  end do
                 end do
                end do
@@ -19557,7 +19521,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________))
                  end do
                 end do
                end do
@@ -19582,7 +19546,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________))
                  end do
                 end do
                end do
@@ -19607,7 +19571,7 @@ module function mean_12_int64_dp(x, dim) result(res)
                 do i_________ =1, size(res, 10)
                  do i__________ =1, size(res, 11)
                    res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________) =&
-                       & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:), dp))
+                       & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:))
                  end do
                 end do
                end do
@@ -19658,8 +19622,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19686,8 +19650,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19714,8 +19678,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19742,8 +19706,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19770,8 +19734,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19798,8 +19762,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19826,8 +19790,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19854,8 +19818,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19882,8 +19846,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19910,8 +19874,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19938,8 +19902,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19966,8 +19930,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i_____&
-                        &______), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i_______&
+                        &____))
                   end do
                  end do
                 end do
@@ -19994,8 +19958,8 @@ module function mean_13_int64_dp(x, dim) result(res)
                  do i__________ =1, size(res, 11)
                   do i___________ =1, size(res, 12)
                     res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________) =&
-                        & mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_______&
-                        &____,:), dp))
+                        & mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i_________&
+                        &__,:))
                   end do
                  end do
                 end do
@@ -20049,8 +20013,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20079,8 +20043,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20109,8 +20073,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20139,8 +20103,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20169,8 +20133,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20199,8 +20163,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20229,8 +20193,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20259,8 +20223,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20289,8 +20253,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20319,8 +20283,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20349,8 +20313,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i__________,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20379,8 +20343,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i__&
-                         &_________,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,:,i____&
+                         &_______,i____________))
                    end do
                   end do
                  end do
@@ -20409,8 +20373,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
-                         &_______,:,i____________), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i______&
+                         &_____,:,i____________))
                    end do
                   end do
                  end do
@@ -20439,8 +20403,8 @@ module function mean_14_int64_dp(x, dim) result(res)
                   do i___________ =1, size(res, 12)
                    do i____________ =1, size(res, 13)
                      res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________)&
-                         & = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i____&
-                         &_______,i____________,:), dp))
+                         & = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i______&
+                         &_____,i____________,:))
                    end do
                   end do
                  end do
@@ -20498,8 +20462,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(:,i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20530,8 +20494,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,:,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20562,8 +20526,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,:,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20594,8 +20558,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,:,i___,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20626,8 +20590,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,:,i____,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20658,8 +20622,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,:,i_____,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20690,8 +20654,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,:,i______,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20722,8 +20686,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,:,i_______,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20754,8 +20718,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,:,i________,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20786,8 +20750,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,:,i_________,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20818,8 +20782,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,&
-                          &i__________,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,:,i_&
+                          &_________,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20850,8 +20814,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,:,i___________,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,:,i___________,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20882,8 +20846,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,:,i____________,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,:,i____________,i_____________))
                     end do
                    end do
                   end do
@@ -20914,8 +20878,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,i____________,:,i_____________), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,i____________,:,i_____________))
                     end do
                    end do
                   end do
@@ -20946,8 +20910,8 @@ module function mean_15_int64_dp(x, dim) result(res)
                    do i____________ =1, size(res, 13)
                     do i_____________ =1, size(res, 14)
                       res(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i__________,i___________,i____________,i&
-                          &_____________) = mean_1_dp_dp(real(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i_&
-                          &_________,i___________,i____________,i_____________,:), dp))
+                          &_____________) = mean_1_int64_dp(x(i,i_,i__,i___,i____,i_____,i______,i_______,i________,i_________,i___&
+                          &_______,i___________,i____________,i_____________,:))
                     end do
                    end do
                   end do
diff --git a/src/stdlib_experimental_stat_mean.fypp.f90 b/src/stdlib_experimental_stat_mean.fypp.f90
index a18e242ce..de049462a 100644
--- a/src/stdlib_experimental_stat_mean.fypp.f90
+++ b/src/stdlib_experimental_stat_mean.fypp.f90
@@ -88,11 +88,11 @@ module function mean_2_${k1}$_dp(x, dim) result(res)
     select case(dim)
      case(1)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(:,i), dp))
+            res(i) = mean_1_${k1}$_dp(x(:,i))
         end do
      case(2)
         do i=1, size(x)/size(x, dim)
-            res(i) = mean_1_dp_dp(real(x(i,:), dp))
+            res(i) = mean_1_${k1}$_dp(x(i,:))
         end do
      case default
         call error_stop("ERROR (mean): wrong dimension")
@@ -196,7 +196,7 @@ module function mean_${rank}$_${k1}$_dp(x, dim) result(res)
 #:for fj in range(1,rank)
        ${" "* (fj-1)}$do i${"_"* (fj-1)}$ =1, size(res, ${fj}$)
 #:endfor
-       ${" "* (fj-1)}$  res(${isuffix(rank)}$) = mean_1_dp_dp(real(x(${xsuffix(rank,fi)}$), dp))
+       ${" "* (fj-1)}$  res(${isuffix(rank)}$) = mean_1_${k1}$_dp(x(${xsuffix(rank,fi)}$))
 #:for fj in range(rank,1,-1)
       ${" "* (fj-1)}$end do
 #:endfor
diff --git a/src/tests/stat/test_mean.f90 b/src/tests/stat/test_mean.f90
index ea05e37dc..93ba7d0b0 100644
--- a/src/tests/stat/test_mean.f90
+++ b/src/tests/stat/test_mean.f90
@@ -1,6 +1,6 @@
 program test_mean
 use stdlib_experimental_error, only: assert
-use stdlib_experimental_kinds, only: sp, dp, int32
+use stdlib_experimental_kinds, only: sp, dp, int32, int64
 use stdlib_experimental_io, only: loadtxt
 use stdlib_experimental_stat, only: mean
 implicit none
@@ -35,6 +35,14 @@ program test_mean
 call assert(sum( mean(int(s, int32), dim = 1) - [4.0_dp, 5.0_dp] ) == 0.0_dp)
 call assert(sum( mean(int(s, int32), dim = 2) - [1.5_dp, 3.5_dp, 5.5_dp, 7.5_dp] ) == 0.0_dp)
 
+!int64
+call loadtxt("array1.dat", s)
+
+call assert( mean(int(s, int64)) - 4.5_dp == 0.0_dp)
+call assert(sum( mean(int(s, int64), dim = 1) - [4.0_dp, 5.0_dp] ) == 0.0_dp)
+call assert(sum( mean(int(s, int64), dim = 2) - [1.5_dp, 3.5_dp, 5.5_dp, 7.5_dp] ) == 0.0_dp)
+
+
 
 !dp rank 3
 allocate(d3(size(d,1),size(d,2),3))