Skip to content

Commit d2c22e6

Browse files
jalveszjalvesz
committed
adapt cmake
1 parent 8e63891 commit d2c22e6

9 files changed

+147
-975
lines changed

‎src/CMakeLists.txt‎

Lines changed: 69 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -21,6 +21,7 @@ set(fppFiles
2121
stdlib_io_npy_load.fypp
2222
stdlib_io_npy_save.fypp
2323
stdlib_kinds.fypp
24+
blas/stdlib_blas_constants.fypp
2425
stdlib_linalg.fypp
2526
stdlib_linalg_diag.fypp
2627
stdlib_linalg_least_squares.fypp
@@ -84,22 +85,76 @@ set(fppFiles
8485
# Preprocessed files to contain preprocessor directives -> .F90
8586
set(cppFiles
8687
stdlib_linalg_constants.fypp
88+
blas/stdlib_blas.fypp
89+
blas/stdlib_linalg_blas_aux.fypp
90+
blas/stdlib_blas_level1.fypp
91+
blas/stdlib_blas_level2_gen.fypp
92+
blas/stdlib_blas_level2_ban.fypp
93+
blas/stdlib_blas_level2_pac.fypp
94+
blas/stdlib_blas_level2_sym.fypp
95+
blas/stdlib_blas_level2_tri.fypp
96+
blas/stdlib_blas_level3_gen.fypp
97+
blas/stdlib_blas_level3_sym.fypp
98+
blas/stdlib_blas_level3_tri.fypp
99+
100+
lapack/stdlib_lapack_base.fypp
101+
lapack/stdlib_lapack_solve.fypp
102+
lapack/stdlib_lapack_other.fypp
103+
lapack/stdlib_lapack_orthogonal_factors.fypp
104+
lapack/stdlib_lapack_eig_svd_lsq.fypp
105+
106+
lapack/stdlib_linalg_lapack_aux.fypp
107+
lapack/stdlib_lapack_auxiliary_others.fypp
108+
lapack/stdlib_lapack_auxiliary_parameters.fypp
109+
lapack/stdlib_lapack_blas_like_base.fypp
110+
lapack/stdlib_lapack_blas_like_l1.fypp
111+
lapack/stdlib_lapack_blas_like_l2.fypp
112+
lapack/stdlib_lapack_blas_like_l3.fypp
113+
lapack/stdlib_lapack_blas_like_mnorm.fypp
114+
lapack/stdlib_lapack_blas_like_scalar.fypp
115+
lapack/stdlib_lapack_cosine_sine.fypp
116+
lapack/stdlib_lapack_cosine_sine2.fypp
117+
lapack/stdlib_lapack_eigv_comp.fypp
118+
lapack/stdlib_lapack_eigv_comp2.fypp
119+
lapack/stdlib_lapack_eigv_gen.fypp
120+
lapack/stdlib_lapack_eigv_gen2.fypp
121+
lapack/stdlib_lapack_eigv_gen3.fypp
122+
lapack/stdlib_lapack_eigv_std_driver.fypp
123+
lapack/stdlib_lapack_eigv_svd_bidiag_dc.fypp
124+
lapack/stdlib_lapack_eigv_svd_drivers.fypp
125+
lapack/stdlib_lapack_eigv_svd_drivers2.fypp
126+
lapack/stdlib_lapack_eigv_svd_drivers3.fypp
127+
lapack/stdlib_lapack_eigv_sym_comp.fypp
128+
lapack/stdlib_lapack_eigv_sym.fypp
129+
lapack/stdlib_lapack_eigv_tridiag.fypp
130+
lapack/stdlib_lapack_eigv_tridiag2.fypp
131+
lapack/stdlib_lapack_eigv_tridiag3.fypp
132+
lapack/stdlib_lapack_givens_jacobi_rot.fypp
133+
lapack/stdlib_lapack_householder_reflectors.fypp
134+
lapack/stdlib_lapack_lsq.fypp
135+
lapack/stdlib_lapack_lsq_aux.fypp
136+
lapack/stdlib_lapack_lsq_constrained.fypp
137+
lapack/stdlib_lapack_orthogonal_factors_ql.fypp
138+
lapack/stdlib_lapack_orthogonal_factors_qr.fypp
139+
lapack/stdlib_lapack_orthogonal_factors_rz.fypp
140+
lapack/stdlib_lapack_others.fypp
141+
lapack/stdlib_lapack_solve_aux.fypp
142+
lapack/stdlib_lapack_solve_chol_comp.fypp
143+
lapack/stdlib_lapack_solve_chol.fypp
144+
lapack/stdlib_lapack_solve_ldl_comp.fypp
145+
lapack/stdlib_lapack_solve_ldl_comp2.fypp
146+
lapack/stdlib_lapack_solve_ldl_comp3.fypp
147+
lapack/stdlib_lapack_solve_ldl_comp4.fypp
148+
lapack/stdlib_lapack_solve_ldl.fypp
149+
lapack/stdlib_lapack_solve_lu_comp.fypp
150+
lapack/stdlib_lapack_solve_lu.fypp
151+
lapack/stdlib_lapack_solve_tri_comp.fypp
152+
lapack/stdlib_lapack_svd_bidiag_qr.fypp
153+
lapack/stdlib_lapack_svd_comp.fypp
154+
lapack/stdlib_lapack_svd_comp2.fypp
155+
87156
stdlib_linalg_blas.fypp
88-
stdlib_linalg_blas_aux.fypp
89-
stdlib_linalg_blas_s.fypp
90-
stdlib_linalg_blas_d.fypp
91-
stdlib_linalg_blas_q.fypp
92-
stdlib_linalg_blas_c.fypp
93-
stdlib_linalg_blas_z.fypp
94-
stdlib_linalg_blas_w.fypp
95157
stdlib_linalg_lapack.fypp
96-
stdlib_linalg_lapack_aux.fypp
97-
stdlib_linalg_lapack_s.fypp
98-
stdlib_linalg_lapack_d.fypp
99-
stdlib_linalg_lapack_q.fypp
100-
stdlib_linalg_lapack_c.fypp
101-
stdlib_linalg_lapack_z.fypp
102-
stdlib_linalg_lapack_w.fypp
103158
)
104159

105160
fypp_f90("${fyppFlags}" "${fppFiles}" outFiles)

‎src/lapack/stdlib_lapack_auxiliary_parameters.fypp‎

Lines changed: 8 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
66
contains
77
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
88

9-
pure real(sp) module function stdlib${ii}$_slamch( cmach )
9+
pure real(sp) module function stdlib${ii}$_slamch( cmach )
1010
!! SLAMCH determines single precision machine parameters.
1111
! -- lapack auxiliary routine --
1212
! -- lapack is a software package provided by univ. of tennessee, --
@@ -17,16 +17,10 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
1717
! =====================================================================
1818

1919
! Local Scalars
20-
real(sp) :: rnd, eps, sfmin, small, rmach
20+
real(sp) :: sfmin, small, rmach
2121
! Intrinsic Functions
2222
! Executable Statements
2323
! assume rounding, not chopping. always.
24-
rnd = one
25-
if( one==rnd ) then
26-
eps = epsilon(zero) * 0.5
27-
else
28-
eps = epsilon(zero)
29-
end if
3024
if( stdlib_lsame( cmach, 'E' ) ) then
3125
rmach = eps
3226
else if( stdlib_lsame( cmach, 'S' ) ) then
@@ -45,7 +39,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
4539
else if( stdlib_lsame( cmach, 'N' ) ) then
4640
rmach = digits(zero)
4741
else if( stdlib_lsame( cmach, 'R' ) ) then
48-
rmach = rnd
42+
rmach = one
4943
else if( stdlib_lsame( cmach, 'M' ) ) then
5044
rmach = minexponent(zero)
5145
else if( stdlib_lsame( cmach, 'U' ) ) then
@@ -72,16 +66,10 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
7266
! =====================================================================
7367

7468
! Local Scalars
75-
real(dp) :: rnd, eps, sfmin, small, rmach
69+
real(dp) :: sfmin, small, rmach
7670
! Intrinsic Functions
7771
! Executable Statements
7872
! assume rounding, not chopping. always.
79-
rnd = one
80-
if( one==rnd ) then
81-
eps = epsilon(zero) * 0.5
82-
else
83-
eps = epsilon(zero)
84-
end if
8573
if( stdlib_lsame( cmach, 'E' ) ) then
8674
rmach = eps
8775
else if( stdlib_lsame( cmach, 'S' ) ) then
@@ -100,7 +88,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
10088
else if( stdlib_lsame( cmach, 'N' ) ) then
10189
rmach = digits(zero)
10290
else if( stdlib_lsame( cmach, 'R' ) ) then
103-
rmach = rnd
91+
rmach = one
10492
else if( stdlib_lsame( cmach, 'M' ) ) then
10593
rmach = minexponent(zero)
10694
else if( stdlib_lsame( cmach, 'U' ) ) then
@@ -129,16 +117,10 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
129117
! =====================================================================
130118

131119
! Local Scalars
132-
real(${rk}$) :: rnd, eps, sfmin, small, rmach
120+
real(${rk}$) :: sfmin, small, rmach
133121
! Intrinsic Functions
134122
! Executable Statements
135123
! assume rounding, not chopping. always.
136-
rnd = one
137-
if( one==rnd ) then
138-
eps = epsilon(zero) * 0.5
139-
else
140-
eps = epsilon(zero)
141-
end if
142124
if( stdlib_lsame( cmach, 'E' ) ) then
143125
rmach = eps
144126
else if( stdlib_lsame( cmach, 'S' ) ) then
@@ -157,7 +139,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
157139
else if( stdlib_lsame( cmach, 'N' ) ) then
158140
rmach = digits(zero)
159141
else if( stdlib_lsame( cmach, 'R' ) ) then
160-
rmach = rnd
142+
rmach = one
161143
else if( stdlib_lsame( cmach, 'M' ) ) then
162144
rmach = minexponent(zero)
163145
else if( stdlib_lsame( cmach, 'U' ) ) then
@@ -182,7 +164,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
182164

183165

184166

185-
pure real(sp) module function stdlib${ii}$_slamc3( a, b )
167+
pure real(sp) module function stdlib${ii}$_slamc3( a, b )
186168
! -- lapack auxiliary routine --
187169
! univ. of tennessee, univ. of california berkeley and nag ltd..
188170
use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone

0 commit comments

Comments
 (0)