Skip to content

Commit 1881c44

Browse files
loiseaujcperazz
andauthored
Update src/stdlib_specialmatrices.fypp
Co-authored-by: Federico Perini <[email protected]>
1 parent 2fbda5d commit 1881c44

File tree

1 file changed

+0
-17
lines changed

1 file changed

+0
-17
lines changed

src/stdlib_specialmatrices.fypp

Lines changed: 0 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)