Skip to content

Commit cdef45f

Browse files
committed
remove (sp) from the examples
1 parent f13e75d commit cdef45f

File tree

4 files changed

+8
-12
lines changed

4 files changed

+8
-12
lines changed

example/linalg/example_eig.f90

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,11 @@
11
! Eigendecomposition of a real square matrix
22
program example_eig
3-
use stdlib_linalg_constants, only: sp
43
use stdlib_linalg, only: eig
54
implicit none
65

76
integer :: i
8-
real(sp), allocatable :: A(:,:)
9-
complex(sp), allocatable :: lambda(:),vectors(:,:)
7+
real, allocatable :: A(:,:)
8+
complex, allocatable :: lambda(:),vectors(:,:)
109

1110
! Decomposition of this square matrix
1211
! NB Fortran is column-major -> transpose input

example/linalg/example_eigh.f90

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,11 @@
11
! Eigendecomposition of a real symmetric matrix
22
program example_eigh
3-
use stdlib_linalg_constants, only: sp
43
use stdlib_linalg, only: eigh
54
implicit none
65

76
integer :: i
8-
real(sp), allocatable :: A(:,:),lambda(:),v(:,:)
9-
complex(sp), allocatable :: cA(:,:),cv(:,:)
7+
real, allocatable :: A(:,:),lambda(:),v(:,:)
8+
complex, allocatable :: cA(:,:),cv(:,:)
109

1110
! Decomposition of this symmetric matrix
1211
! NB Fortran is column-major -> transpose input

example/linalg/example_eigvals.f90

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,11 @@
11
! Eigenvalues of a general real / complex matrix
22
program example_eigvals
3-
use stdlib_linalg_constants, only: sp
43
use stdlib_linalg, only: eigvals
54
implicit none
65

76
integer :: i
8-
real(sp), allocatable :: A(:,:),lambda(:)
9-
complex(sp), allocatable :: cA(:,:),clambda(:)
7+
real, allocatable :: A(:,:),lambda(:)
8+
complex, allocatable :: cA(:,:),clambda(:)
109

1110
! NB Fortran is column-major -> transpose input
1211
A = transpose(reshape( [ [2, 8, 4], &

example/linalg/example_eigvalsh.f90

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,11 @@
11
! Eigenvalues of a real symmetric / complex hermitian matrix
22
program example_eigvalsh
3-
use stdlib_linalg_constants, only: sp
43
use stdlib_linalg, only: eigvalsh
54
implicit none
65

76
integer :: i
8-
real(sp), allocatable :: A(:,:),lambda(:)
9-
complex(sp), allocatable :: cA(:,:)
7+
real, allocatable :: A(:,:),lambda(:)
8+
complex, allocatable :: cA(:,:)
109

1110
! Decomposition of this symmetric matrix
1211
! NB Fortran is column-major -> transpose input

0 commit comments

Comments
 (0)