Removed comment in eye

Author: ivan-pi

src/stdlib_experimental_linalg.fypp

@@ -11,16 +11,15 @@ module stdlib_experimental_linalg
   public :: trace
 
   interface diag
-    !
-    ! Vector to matrix
-    !
+      !
+      ! Vector to matrix
+      !
     #:for k1, t1 in RCI_KINDS_TYPES
       module function diag_${t1[0]}$${k1}$(v) result(res)
         ${t1}$, intent(in) :: v(:)
         ${t1}$ :: res(size(v),size(v))
       end function diag_${t1[0]}$${k1}$
     #:endfor
-
     #:for k1, t1 in RCI_KINDS_TYPES
       module function diag_${t1[0]}$${k1}$_k(v,k) result(res)
         ${t1}$, intent(in) :: v(:)
@@ -29,16 +28,15 @@ module stdlib_experimental_linalg
       end function diag_${t1[0]}$${k1}$_k
     #:endfor
 
-    !
-    ! Matrix to vector
-    !
+      !
+      ! Matrix to vector
+      !
     #:for k1, t1 in RCI_KINDS_TYPES
       module function diag_${t1[0]}$${k1}$_mat(A) result(res)
         ${t1}$, intent(in) :: A(:,:)
         ${t1}$ :: res(minval(shape(A)))
       end function diag_${t1[0]}$${k1}$_mat
     #:endfor
-
     #:for k1, t1 in RCI_KINDS_TYPES
       module function diag_${t1[0]}$${k1}$_mat_k(A,k) result(res)
         ${t1}$, intent(in) :: A(:,:)
@@ -58,7 +56,6 @@ module stdlib_experimental_linalg
 contains
 
     function eye(n) result(res)
-      ! Returns the identity matrix of size n x n and type real.
       integer, intent(in) :: n
       integer(int8) :: res(n, n)
       integer :: i