Skip to content

Commit

Permalink
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
replace implicit none(type,external) by implicit none, replace duplic…
Browse files Browse the repository at this point in the history
…ated constants
jalvesz committed Jan 8, 2025
1 parent 24b2c52 commit ddbd574
Showing 51 changed files with 2,222 additions and 2,384 deletions.
2 changes: 1 addition & 1 deletion doc/specs/stdlib_linalg.md
Original file line number Diff line number Diff line change
@@ -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(*)
2 changes: 1 addition & 1 deletion example/linalg/example_blas_gemv.f90
Original file line number Diff line number Diff line change
@@ -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)
2 changes: 1 addition & 1 deletion example/linalg/example_lapack_getrf.f90
Original file line number Diff line number Diff line change
@@ -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

2 changes: 1 addition & 1 deletion example/linalg/example_pseudoinverse.f90
Original file line number Diff line number Diff line change
@@ -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
2 changes: 1 addition & 1 deletion example/linalg/example_qr.f90
Original file line number Diff line number Diff line change
@@ -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
2 changes: 1 addition & 1 deletion example/linalg/example_qr_space.f90
Original file line number Diff line number Diff line change
@@ -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
2 changes: 1 addition & 1 deletion legacy/stdlib_linalg_blas_c.fypp
Original file line number Diff line number Diff line change
@@ -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


2 changes: 1 addition & 1 deletion legacy/stdlib_linalg_blas_d.fypp
Original file line number Diff line number Diff line change
@@ -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


2 changes: 1 addition & 1 deletion legacy/stdlib_linalg_blas_q.fypp
Original file line number Diff line number Diff line change
@@ -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


2 changes: 1 addition & 1 deletion legacy/stdlib_linalg_blas_s.fypp
Original file line number Diff line number Diff line change
@@ -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


2 changes: 1 addition & 1 deletion legacy/stdlib_linalg_blas_w.fypp
Original file line number Diff line number Diff line change
@@ -13,7 +13,7 @@ module stdlib_linalg_blas_${ci}$
use stdlib_linalg_blas_${ri}$
#:endif
#:endfor
implicit none(type,external)
implicit none
private


2 changes: 1 addition & 1 deletion legacy/stdlib_linalg_blas_z.fypp
Original file line number Diff line number Diff line change
@@ -5,7 +5,7 @@ module stdlib_linalg_blas_z
use stdlib_linalg_blas_s
use stdlib_linalg_blas_c
use stdlib_linalg_blas_d
implicit none(type,external)
implicit none
private


Loading

0 comments on commit ddbd574

Please sign in to comment.