Merge pull request #173 from jvdp1/meantovariance

Replace mean in ERROR message by var in var functions

Author: jvdp1

src/stdlib_experimental_stats_var.fypp

@@ -101,7 +101,7 @@ contains
             end do
           #:endfor
           case default
-            call error_stop("ERROR (mean): wrong dimension")
+            call error_stop("ERROR (var): wrong dimension")
         end select
         res = res / (n - merge(1, 0, optval(corrected, .true.)))
 
@@ -140,7 +140,7 @@ contains
             end do
           #:endfor
           case default
-            call error_stop("ERROR (mean): wrong dimension")
+            call error_stop("ERROR (var): wrong dimension")
         end select
         res = res / (n - merge(1, 0, optval(corrected, .true.)))
 
@@ -229,7 +229,7 @@ contains
             end do
           #:endfor
           case default
-            call error_stop("ERROR (mean): wrong dimension")
+            call error_stop("ERROR (var): wrong dimension")
         end select
         res = res / (n - merge(1, 0, (optval(corrected, .true.) .and. n > 0)))
 
@@ -264,7 +264,7 @@ contains
             end do
           #:endfor
           case default
-            call error_stop("ERROR (mean): wrong dimension")
+            call error_stop("ERROR (var): wrong dimension")
         end select
         res = res / (n - merge(1, 0, (optval(corrected, .true.) .and. n > 0)))