variance_dev: remove support of complex because it was wrong

Author: jvdp1

src/stdlib_experimental_stats_var.fypp

@@ -1,6 +1,5 @@
 #:include "common.fypp"
 #:set RANKS = range(1, MAXRANK + 1)
-#:set RC_KINDS_TYPES = REAL_KINDS_TYPES + CMPLX_KINDS_TYPES
 submodule (stdlib_experimental_stats) stdlib_experimental_stats_var
 
   use, intrinsic:: ieee_arithmetic, only: ieee_value, ieee_quiet_nan
@@ -10,7 +9,7 @@ submodule (stdlib_experimental_stats) stdlib_experimental_stats_var
 
 contains
 
-  #:for k1, t1 in RC_KINDS_TYPES
+  #:for k1, t1 in REAL_KINDS_TYPES
     #:for rank in RANKS
       #:set RName = rname("var_all",rank, t1, k1)
       module function ${RName}$(x, mask) result(res)
@@ -60,7 +59,7 @@ contains
   #:endfor
 
 
-  #:for k1, t1 in RC_KINDS_TYPES
+  #:for k1, t1 in REAL_KINDS_TYPES
     #:for rank in RANKS
       #:set RName = rname("var",rank, t1, k1)
       module function ${RName}$(x, dim, mask) result(res)
@@ -136,7 +135,7 @@ contains
   #:endfor
 
 
-  #:for k1, t1 in RC_KINDS_TYPES
+  #:for k1, t1 in REAL_KINDS_TYPES
     #:for rank in RANKS
       #:set RName = rname("var_mask_all",rank, t1, k1)
       module function ${RName}$(x, mask) result(res)
@@ -176,7 +175,7 @@ contains
   #:endfor
 
 
-  #:for k1, t1 in RC_KINDS_TYPES
+  #:for k1, t1 in REAL_KINDS_TYPES
     #:for rank in RANKS
       #:set RName = rname("var_mask",rank, t1, k1)
       module function ${RName}$(x, dim, mask) result(res)
@@ -197,11 +196,7 @@ contains
             mean = sum(x, dim, mask) / n
             do i = 1, size(x, dim)
               res = res + merge( (x${rankindice(':', 'i', rank, fi )}$ - mean)**2,&
-              #:if t1[0] == 'r'
                                   0._${k1}$,&
-              #:else
-                                  cmplx(0._${k1}$, 0._${k1}$, ${k1}$),&
-              #:endif
                                   mask${rankindice(':', 'i', rank, fi)}$)
             end do
           #:endfor