remove experimental weighted quad stuff

Author: nshaffer

src/stdlib_experimental_quadrature.fypp

@@ -1,6 +1,4 @@
 #:include "common.fypp"
-#:set WEIGHT_FUNS = ["sin", "cos", "pole"]
-#:set QUAD_OK = False
 module stdlib_experimental_quadrature
     !! ([Specification](../page/specs/stdlib_experimental_quadrature.html#description))
     use stdlib_experimental_kinds, only: sp, dp, qp
@@ -15,19 +13,10 @@ module stdlib_experimental_quadrature
     public :: simps
     public :: simps_weights
 
-    ! automatic integration of (weighted) functions
-    #:if QUAD_OK
-    public :: quad
-    public :: weight_t
-    #:for WFUN in WEIGHT_FUNS
-    public :: ${WFUN}$_weight_t
-    #:endfor
-    #:endif
-
 
     interface trapz
-      !! Integrates sampled values using trapezoidal rule
-      !! ([Specification](../page/specs/stdlib_experimental_quadrature.html#description))
+        !! Integrates sampled values using trapezoidal rule
+        !! ([Specification](../page/specs/stdlib_experimental_quadrature.html#description))
         #:for k1, t1 in REAL_KINDS_TYPES
         pure module function trapz_dx_${k1}$(y, dx) result(integral)
           ${t1}$, dimension(:), intent(in) :: y
@@ -102,43 +91,4 @@ module stdlib_experimental_quadrature
         #:endfor
     end interface
 
-#:if QUAD_OK
-    ! Base class to avoid repeating kind parameter declaration.
-    type, abstract :: weight_t(kind)
-        integer, kind :: kind
-    end type weight_t
-
-    type, extends(weight_t) :: sin_weight_t
-        real(kind) :: omega
-    end type sin_weight_t
-
-    type, extends(weight_t) :: cos_weight_t
-        real(kind) :: omega
-    end type cos_weight_t
-
-    type, extends(weight_t) :: pole_weight_t
-        real(kind) :: c
-    end type pole_weight_t
-
-! gfortran 9.2.0 chokes on ICE if I include this ("buffer overflow detected")
-! Interestingly, though, the ICE happens while trying to build the trapz submodule
-! PDT bug?
-    interface quad
-        #:for WFUN in WEIGHT_FUNS
-        #:for k1, t1 in REAL_KINDS_TYPES
-        module function quad_${WFUN}$_${k1}$(f, a, b, weight, points, abstol, reltol, delta) result(integral)
-            procedure(integrand_${k1}$) :: f
-            ${t1}$, intent(in) :: a
-            ${t1}$, intent(in) :: b
-            type(${WFUN}$_weight_t(${k1}$)), intent(in) :: weight
-            ${t1}$, intent(in), dimension(:) :: points
-            ${t1}$, intent(in) :: abstol
-            ${t1}$, intent(in) :: reltol
-            ${t1}$, intent(out), optional :: delta
-            ${t1}$ :: integral
-        end function quad_${WFUN}$_${k1}$
-        #:endfor
-        #:endfor
-    end interface quad
-#:endif
 end module stdlib_experimental_quadrature