tidy up schur real example

Author: perazz

example/linalg/example_schur_real.f90

@@ -3,16 +3,13 @@ program example_schur_real
   use stdlib_linalg, only: schur
   use stdlib_linalg_constants, only: dp
   implicit none
-  real(dp), allocatable :: A(:,:), T(:,:), Z(:,:)
-  integer :: n
+  integer, parameter :: n = 3
+  real(dp), dimension(n,n) :: A, T, Z
 
   ! Initialize a real-valued square matrix
-  n = 3
-  allocate(A(n,n), T(n,n), Z(n,n))
-  A = reshape([ &
-       0.0_dp, 2.0_dp, 2.0_dp, &
-       0.0_dp, 1.0_dp, 2.0_dp, &
-       1.0_dp, 0.0_dp, 1.0_dp], shape=[n,n])
+  A = reshape([ 0, 2, 2, &
+                0, 1, 2, &
+                1, 0, 1], shape=[n,n])
 
   ! Compute the Schur decomposition: A = Z T Z^T
   call schur(A, T, Z)
@@ -28,6 +25,5 @@ program example_schur_real
   ! Test factorization: Z*T*Z^T = A
   print *, "Max error in reconstruction:", maxval(abs(matmul(Z, matmul(T, transpose(Z))) - A))
 
-  deallocate(A, T, Z)
 end program example_schur_real