replace implicit none(type,external) by implicit none, replace duplicated constants

Author: jalvesz

doc/specs/stdlib_linalg.md

@@ -91,7 +91,7 @@ for example:
 interface axpy
     pure subroutine caxpy(n,ca,cx,incx,cy,incy)
         import sp,dp,qp,ilp,lk 
-        implicit none(type,external) 
+        implicit none 
         complex(sp), intent(in) :: ca,cx(*)
         integer(ilp), intent(in) :: incx,incy,n
         complex(sp), intent(inout) :: cy(*)

example/linalg/example_blas_gemv.f90

@@ -1,7 +1,7 @@
 program example_gemv
   use stdlib_linalg, only: eye
   use stdlib_linalg_blas, only: sp,gemv
-  implicit none(type,external)
+  implicit none
   real(sp) :: A(2, 2), B(2), C(2)
   B = [1.0,2.0]
   A = eye(2)

example/linalg/example_lapack_getrf.f90

@@ -1,7 +1,7 @@
 program example_getrf
   use stdlib_linalg, only: eye
   use stdlib_linalg_lapack, only: dp,ilp,getrf
-  implicit none(type,external)
+  implicit none
   real(dp) :: A(3, 3)
   integer(ilp) :: ipiv(3),info
 

example/linalg/example_pseudoinverse.f90

@@ -1,7 +1,7 @@
 ! Matrix pseudo-inversion example: function, subroutine, and operator interfaces
 program example_pseudoinverse
   use stdlib_linalg, only: pinv, pseudoinvert, operator(.pinv.), linalg_state_type
-  implicit none(type,external)
+  implicit none
 
   real :: A(15,5), Am1(5,15)
   type(linalg_state_type) :: state

example/linalg/example_qr.f90

@@ -1,6 +1,6 @@
 program example_qr  
   use stdlib_linalg, only: qr
-  implicit none(type,external)
+  implicit none
   real :: A(104, 32), Q(104,32), R(32,32)
 
   ! Create a random matrix

example/linalg/example_qr_space.f90

@@ -2,7 +2,7 @@
 program example_qr_space
   use stdlib_linalg_constants, only: ilp
   use stdlib_linalg, only: qr, qr_space, linalg_state_type
-  implicit none(type,external)
+  implicit none
   real :: A(104, 32), Q(104,32), R(32,32)
   real, allocatable :: work(:)
   integer(ilp) :: lwork

legacy/stdlib_linalg_blas_c.fypp

@@ -3,7 +3,7 @@ module stdlib_linalg_blas_c
      use stdlib_linalg_constants
      use stdlib_linalg_blas_aux
      use stdlib_linalg_blas_s
-     implicit none(type,external)
+     implicit none
      private
 
 

legacy/stdlib_linalg_blas_d.fypp

@@ -4,7 +4,7 @@ module stdlib_linalg_blas_d
      use stdlib_linalg_blas_aux
      use stdlib_linalg_blas_s
      use stdlib_linalg_blas_c
-     implicit none(type,external)
+     implicit none
      private
 
 

legacy/stdlib_linalg_blas_q.fypp

@@ -8,7 +8,7 @@ module stdlib_linalg_blas_${ri}$
      use stdlib_linalg_blas_c
      use stdlib_linalg_blas_d
      use stdlib_linalg_blas_z
-     implicit none(type,external)
+     implicit none
      private
 
 

legacy/stdlib_linalg_blas_s.fypp

@@ -2,7 +2,7 @@
 module stdlib_linalg_blas_s
      use stdlib_linalg_constants
      use stdlib_linalg_blas_aux
-     implicit none(type,external)
+     implicit none
      private