@@ -17,23 +17,6 @@ module stdlib_specialmatrices
17
17
public :: dense, transpose, hermitian
18
18
public :: operator(*), operator(+), operator(-)
19
19
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
-
37
20
!--------------------------------------
38
21
!----- ------
39
22
!----- TYPE DEFINITIONS ------
0 commit comments