@@ -17,23 +17,6 @@ module stdlib_specialmatrices
1717 public :: dense, transpose, hermitian
1818 public :: operator(*), operator(+), operator(-)
1919
20- ! real(sp), parameter :: zero_sp = 0._sp
21- ! real(sp), parameter :: one_sp = 1._sp
22- ! real(dp), parameter :: zero_dp = 0._dp
23- ! real(dp), parameter :: one_dp = 1._dp
24- ! real(xdp), parameter :: zero_xdp = 0._xdp
25- ! real(xdp), parameter :: one_xdp = 1._xdp
26- ! real(qp), parameter :: zero_qp = 0._qp
27- ! real(qp), parameter :: one_qp = 1._qp
28- ! complex(sp), parameter :: zero_csp = (0._sp,0._sp)
29- ! complex(sp), parameter :: one_csp = (1._sp,1._sp)
30- ! complex(dp), parameter :: zero_cdp = (0._dp,0._dp)
31- ! complex(dp), parameter :: one_cdp = (1._dp,1._dp)
32- ! complex(xdp), parameter :: zero_cxdp = (0._xdp,0._xdp)
33- ! complex(xdp), parameter :: one_cxdp = (1._xdp,1._xdp)
34- ! complex(qp), parameter :: zero_cqp = (0._qp,0._qp)
35- ! complex(qp), parameter :: one_cqp = (1._qp,1._qp)
36-
3720 !--------------------------------------
3821 !----- ------
3922 !----- TYPE DEFINITIONS ------
0 commit comments