rawmoment: progress in test files

Author: jvdp1

src/tests/stats/test_moment.f90

@@ -46,7 +46,7 @@ subroutine test_sp(x1, x2)
         !1dim
         print*,' test_sp_1dim', order
         call assert( abs(moment(x1, order, center=mean(x1))) < sptol)
-        call assert( abs(moment(x1, order, dim=1, center = mean(x1, dim=1))) < sptol)
+        call assert( abs(moment(x1, order, 1, center = mean(x1, 1))) < sptol)
 
         print*,' test_sp_1dim_mask', order
         call assert( ieee_is_nan(moment(x1, order, center = mean(x1, .false.), mask = .false.)))
@@ -102,7 +102,7 @@ subroutine test_sp(x1, x2)
         !1dim
         print*,' test_sp_1dim', order
         call assert( abs(moment(x1, order, center = mean(x1)) - 2._sp) < sptol)
-        call assert( abs(moment(x1, order, dim=1, center = mean(x1, dim=1)) - 2._sp) < sptol)
+        call assert( abs(moment(x1, order, 1, center = mean(x1, 1)) - 2._sp) < sptol)
 
         print*,' test_sp_1dim_mask', order
         call assert( ieee_is_nan(moment(x1, order, center = mean(x1, .false.), mask = .false.)))
@@ -337,7 +337,7 @@ subroutine test_int32(x1, x2)
         !1dim
         print*,' test_dp_1dim', order
         call assert( abs(moment(x1, order, center = mean(x1))) < dptol)
-        call assert( abs(moment(x1, order, dim=1, center = mean(x1, dim=1))) < dptol)
+        call assert( abs(moment(x1, order, 1, center = mean(x1, 1))) < dptol)
 
         print*,' test_dp_1dim_mask', order
         call assert( ieee_is_nan(moment(x1, order, center = mean(x1, .false.), mask = .false.)))
@@ -393,7 +393,7 @@ subroutine test_int32(x1, x2)
         !1dim
         print*,' test_dp_1dim', order
         call assert( abs(moment(x1, order, center = mean(x1)) - 2._dp) < dptol)
-        call assert( abs(moment(x1, order, center = mean(x1, dim=1), dim=1) - 2._dp) < dptol)
+        call assert( abs(moment(x1, order, 1, center = mean(x1, 1)) - 2._dp) < dptol)
 
         print*,' test_dp_1dim_mask', order
         call assert( ieee_is_nan(moment(x1, order, center = mean(x1, .false.), mask = .false.)))
@@ -629,7 +629,7 @@ subroutine test_csp(x1, x2)
         !1dim
         print*,' test_sp_1dim', order
         call assert( abs(moment(x1, order, center = mean(x1))) < sptol)
-        call assert( abs(moment(x1, order, center = mean(x1, dim=1), dim=1)) < sptol)
+        call assert( abs(moment(x1, order, 1, center = mean(x1, 1))) < sptol)
 
         print*,' test_sp_1dim_mask', order
         call assert( ieee_is_nan(abs(moment(x1, order, center = mean(x1, .false.), mask = .false.))))
@@ -661,7 +661,7 @@ subroutine test_csp(x1, x2)
         !1dim
         print*,' test_sp_1dim', order
         call assert( abs(moment(x1, order, center = mean(x1)) - (-6.459422410E-02,-0.556084037)) < sptol)
-        call assert( abs(moment(x1, order, center = mean(x1, dim=1), dim=1) -&
+        call assert( abs(moment(x1, order, 1, center = mean(x1, 1)) -&
                         (-6.459422410E-02,-0.556084037)) < sptol)
 
         print*,' test_sp_1dim_mask', order

src/tests/stats/test_rawmoment.f90

@@ -1,4 +1,4 @@
-program test_moment
+program test_rawmoment
     use stdlib_experimental_error, only: assert
     use stdlib_experimental_kinds, only: sp, dp, int32, int64
     use stdlib_experimental_stats, only: mean, moment
@@ -44,7 +44,7 @@ subroutine test_sp(x1, x2)
         !1dim
         print*,' test_sp_1dim', order
         call assert( abs(moment(x1, order) - mean(x1)) < sptol)
-        call assert( abs(moment(x1, order, dim=1) - mean(x1)) < sptol)
+        call assert( abs(moment(x1, order, 1) - mean(x1)) < sptol)
 
         print*,' test_sp_1dim_mask', order
         call assert( ieee_is_nan(moment(x1, order, mask = .false.)))
@@ -100,7 +100,7 @@ subroutine test_sp(x1, x2)
         !1dim
 !        print*,' test_sp_1dim', order
 !        call assert( abs(moment(x1, order, center = mean(x1)) - 2._sp) < sptol)
-!        call assert( abs(moment(x1, order, center = mean(x1, dim=1), dim=1) - 2._sp) < sptol)
+!        call assert( abs(moment(x1, order, center = mean(x1, 1), 1) - 2._sp) < sptol)
 !
         print*,' test_sp_1dim_mask', order
         call assert( ieee_is_nan(moment(x1, order, mask = .false.)))
@@ -189,7 +189,7 @@ subroutine test_int32(x1, x2)
 !        !1dim
 !        print*,' test_dp_1dim', order
 !        call assert( abs(moment(x1, order, center = mean(x1))) < dptol)
-!        call assert( abs(moment(x1, order, center = mean(x1, dim=1), dim=1)) < dptol)
+!        call assert( abs(moment(x1, order, center = mean(x1, 1), 1)) < dptol)
 !
 !        print*,' test_dp_1dim_mask', order
 !        call assert( ieee_is_nan(moment(x1, order, center = mean(x1, .false.), mask = .false.)))
@@ -245,7 +245,7 @@ subroutine test_int32(x1, x2)
 !        !1dim
 !        print*,' test_dp_1dim', order
 !        call assert( abs(moment(x1, order, center = mean(x1)) - 2._dp) < dptol)
-!        call assert( abs(moment(x1, order, center = mean(x1, dim=1), dim=1) - 2._dp) < dptol)
+!        call assert( abs(moment(x1, order, center = mean(x1, 1), 1) - 2._dp) < dptol)
 !
 !        print*,' test_dp_1dim_mask', order
 !        call assert( ieee_is_nan(moment(x1, order, center = mean(x1, .false.), mask = .false.)))
@@ -335,7 +335,7 @@ subroutine test_csp(x1, x2)
 !        !1dim
 !        print*,' test_sp_1dim', order
 !        call assert( abs(moment(x1, order, center = mean(x1))) < sptol)
-!        call assert( abs(moment(x1, order, center = mean(x1, dim=1), dim=1)) < sptol)
+!        call assert( abs(moment(x1, order, center = mean(x1, 1), 1)) < sptol)
 !
 !        print*,' test_sp_1dim_mask', order
 !        call assert( ieee_is_nan(abs(moment(x1, order, center = mean(x1, .false.), mask = .false.))))
@@ -367,7 +367,7 @@ subroutine test_csp(x1, x2)
 !        !1dim
 !        print*,' test_sp_1dim', order
 !        call assert( abs(moment(x1, order, center = mean(x1)) - (-6.459422410E-02,-0.556084037)) < sptol)
-!        call assert( abs(moment(x1, order, center = mean(x1, dim=1), dim=1) -&
+!        call assert( abs(moment(x1, order, center = mean(x1, 1), 1) -&
 !                        (-6.459422410E-02,-0.556084037)) < sptol)
 !
 !        print*,' test_sp_1dim_mask', order