Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Sign up
Appearance settings

Commit a4370c2

Browse files
authored
Merge branch 'fortran-lang:master' into intrinsics
2 parents 537cef8 + bec8574 commit a4370c2

15 files changed

+44
-178
lines changed

‎example/linalg/example_pseudoinverse.f90‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5,8 +5,6 @@ program example_pseudoinverse
55

66
real :: A(15,5), Am1(5,15)
77
type(linalg_state_type) :: state
8-
integer :: i, j
9-
real, parameter :: tol = sqrt(epsilon(0.0))
108

119
! Generate random matrix A (15x15)
1210
call random_number(A)

‎src/lapack/stdlib_lapack_auxiliary.fypp‎

Lines changed: 15 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -163,7 +163,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
163163
pure real(sp) module function stdlib${ii}$_slamc3( a, b )
164164
! -- lapack auxiliary routine --
165165
! univ. of tennessee, univ. of california berkeley and nag ltd..
166-
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
167166
! Scalar Arguments
168167
real(sp), intent(in) :: a, b
169168
! =====================================================================
@@ -175,7 +174,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
175174
pure real(dp) module function stdlib${ii}$_dlamc3( a, b )
176175
! -- lapack auxiliary routine --
177176
! univ. of tennessee, univ. of california berkeley and nag ltd..
178-
use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
179177
! Scalar Arguments
180178
real(dp), intent(in) :: a, b
181179
! =====================================================================
@@ -189,7 +187,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
189187
pure real(${rk}$) module function stdlib${ii}$_${ri}$lamc3( a, b )
190188
! -- lapack auxiliary routine --
191189
! univ. of tennessee, univ. of california berkeley and nag ltd..
192-
use stdlib_blas_constants_${rk},ドル only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
193190
! Scalar Arguments
194191
real(${rk}$), intent(in) :: a, b
195192
! =====================================================================
@@ -215,7 +212,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
215212
! -- lapack auxiliary routine --
216213
! -- lapack is a software package provided by univ. of tennessee, --
217214
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
218-
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
219215
! Scalar Arguments
220216
real(sp), intent(inout) :: large, small
221217
! =====================================================================
@@ -242,7 +238,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
242238
! -- lapack auxiliary routine --
243239
! -- lapack is a software package provided by univ. of tennessee, --
244240
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
245-
use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
246241
! Scalar Arguments
247242
real(dp), intent(inout) :: large, small
248243
! =====================================================================
@@ -271,7 +266,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
271266
! -- lapack auxiliary routine --
272267
! -- lapack is a software package provided by univ. of tennessee, --
273268
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
274-
use stdlib_blas_constants_${rk},ドル only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
275269
! Scalar Arguments
276270
real(${rk}$), intent(inout) :: large, small
277271
! =====================================================================
@@ -299,7 +293,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
299293
! -- lapack auxiliary routine --
300294
! -- lapack is a software package provided by univ. of tennessee, --
301295
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
302-
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
296+
use stdlib_blas_constants_sp, only: zero
303297
! Scalar Arguments
304298
integer(${ik}$), intent(in) :: incx, n
305299
! Array Arguments
@@ -342,7 +336,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
342336
! -- lapack auxiliary routine --
343337
! -- lapack is a software package provided by univ. of tennessee, --
344338
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
345-
use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
339+
use stdlib_blas_constants_dp, only: zero
346340
! Scalar Arguments
347341
integer(${ik}$), intent(in) :: incx, n
348342
! Array Arguments
@@ -385,7 +379,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
385379
! -- lapack auxiliary routine --
386380
! -- lapack is a software package provided by univ. of tennessee, --
387381
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
388-
use stdlib_blas_constants_${rk},ドル only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
382+
use stdlib_blas_constants_${rk},ドル only: zero
389383
! Scalar Arguments
390384
integer(${ik}$), intent(in) :: incx, n
391385
! Array Arguments
@@ -429,7 +423,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
429423
! -- lapack auxiliary routine --
430424
! -- lapack is a software package provided by univ. of tennessee, --
431425
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
432-
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
426+
use stdlib_blas_constants_sp, only: one
433427
! Scalar Arguments
434428
character, intent(out) :: equed
435429
character, intent(in) :: uplo
@@ -488,7 +482,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
488482
! -- lapack auxiliary routine --
489483
! -- lapack is a software package provided by univ. of tennessee, --
490484
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
491-
use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
485+
use stdlib_blas_constants_dp, only: one
492486
! Scalar Arguments
493487
character, intent(out) :: equed
494488
character, intent(in) :: uplo
@@ -549,7 +543,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
549543
! -- lapack auxiliary routine --
550544
! -- lapack is a software package provided by univ. of tennessee, --
551545
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
552-
use stdlib_blas_constants_${rk},ドル only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
546+
use stdlib_blas_constants_${rk},ドル only: one
553547
! Scalar Arguments
554548
character, intent(out) :: equed
555549
character, intent(in) :: uplo
@@ -611,7 +605,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
611605
! -- lapack auxiliary routine --
612606
! -- lapack is a software package provided by univ. of tennessee, --
613607
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
614-
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
608+
use stdlib_blas_constants_sp, only: one
615609
! Scalar Arguments
616610
character, intent(out) :: equed
617611
character, intent(in) :: uplo
@@ -670,7 +664,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
670664
! -- lapack auxiliary routine --
671665
! -- lapack is a software package provided by univ. of tennessee, --
672666
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
673-
use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
667+
use stdlib_blas_constants_dp, only: one
674668
! Scalar Arguments
675669
character, intent(out) :: equed
676670
character, intent(in) :: uplo
@@ -731,7 +725,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
731725
! -- lapack auxiliary routine --
732726
! -- lapack is a software package provided by univ. of tennessee, --
733727
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
734-
use stdlib_blas_constants_${ck},ドル only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
728+
use stdlib_blas_constants_${ck},ドル only: one
735729
! Scalar Arguments
736730
character, intent(out) :: equed
737731
character, intent(in) :: uplo
@@ -793,7 +787,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
793787
! -- lapack auxiliary routine --
794788
! -- lapack is a software package provided by univ. of tennessee, --
795789
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
796-
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
790+
use stdlib_blas_constants_sp, only: one
797791
! Scalar Arguments
798792
real(sp), intent(inout) :: a
799793
real(sp), intent(in) :: b, c, d
@@ -815,7 +809,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
815809
! -- lapack auxiliary routine --
816810
! -- lapack is a software package provided by univ. of tennessee, --
817811
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
818-
use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
812+
use stdlib_blas_constants_dp, only: one
819813
! Scalar Arguments
820814
real(dp), intent(inout) :: a
821815
real(dp), intent(in) :: b, c, d
@@ -839,7 +833,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
839833
! -- lapack auxiliary routine --
840834
! -- lapack is a software package provided by univ. of tennessee, --
841835
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
842-
use stdlib_blas_constants_${rk},ドル only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
836+
use stdlib_blas_constants_${rk},ドル only: one
843837
! Scalar Arguments
844838
real(${rk}$), intent(inout) :: a
845839
real(${rk}$), intent(in) :: b, c, d
@@ -866,7 +860,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
866860
! -- lapack auxiliary routine --
867861
! -- lapack is a software package provided by univ. of tennessee, --
868862
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
869-
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
863+
use stdlib_blas_constants_sp, only: zero
870864
! Scalar Arguments
871865
real(sp), intent(in) :: a, b, c, d, r, t
872866
! =====================================================================
@@ -891,7 +885,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
891885
! -- lapack auxiliary routine --
892886
! -- lapack is a software package provided by univ. of tennessee, --
893887
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
894-
use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
888+
use stdlib_blas_constants_dp, only: zero
895889
! Scalar Arguments
896890
real(dp), intent(in) :: a, b, c, d, r, t
897891
! =====================================================================
@@ -918,7 +912,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
918912
! -- lapack auxiliary routine --
919913
! -- lapack is a software package provided by univ. of tennessee, --
920914
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
921-
use stdlib_blas_constants_${rk},ドル only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
915+
use stdlib_blas_constants_${rk},ドル only: zero
922916
! Scalar Arguments
923917
real(${rk}$), intent(in) :: a, b, c, d, r, t
924918
! =====================================================================
@@ -950,7 +944,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
950944
! -- lapack auxiliary routine --
951945
! -- lapack is a software package provided by univ. of tennessee, --
952946
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
953-
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
954947
! Scalar Arguments
955948
integer(${ik}$), intent(in) :: incx, incy, n
956949
real(sp), intent(in) :: c
@@ -994,7 +987,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
994987
! -- lapack auxiliary routine --
995988
! -- lapack is a software package provided by univ. of tennessee, --
996989
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
997-
use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
998990
! Scalar Arguments
999991
integer(${ik}$), intent(in) :: incx, incy, n
1000992
real(dp), intent(in) :: c
@@ -1040,7 +1032,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary
10401032
! -- lapack auxiliary routine --
10411033
! -- lapack is a software package provided by univ. of tennessee, --
10421034
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
1043-
use stdlib_blas_constants_${ck},ドル only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone
10441035
! Scalar Arguments
10451036
integer(${ik}$), intent(in) :: incx, incy, n
10461037
real(${ck}$), intent(in) :: c

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /