Skip to content

Commit ae12308

Browse files
jalveszjalvesz
committed
cleanup procedures
1 parent 1363b77 commit ae12308

29 files changed

+41
-698
lines changed

‎legacy/refactor_blaslapack_subm.py‎

Lines changed: 41 additions & 42 deletions
Original file line numberDiff line numberDiff line change
@@ -28,30 +28,30 @@
2828
# Define the LAPACK routine groups
2929
lapack_groups = {
3030
"auxiliary_parameters": [
31-
"lamch", "lamc1", "lamc2", "lamc3", "lamc4", "lamc5", "labad", "sum1", "csum1", "zsum1",
31+
"lamch", "lamc3", "labad", "csum1", "zsum1",
3232
"laqsb"
3333
],
3434
"auxiliary_others": [
35-
"lsame","lsamen","roundup_lwork","scond","ladiv1","ladiv2", "rot"
35+
"ladiv1","ladiv2", "rot"
3636
],
3737

3838
"blas_like_base": [
3939
"laset","larnv","laruv","lacpy","lacp2","tfttp","tfttr","tpttf",
40-
"tpttr","trttf","trttp","lat2","lag2s","lat2s","lag2d","lat2d"
40+
"tpttr","trttf","trttp","lag2s","lat2s","lag2d",
4141
],
4242
"blas_like_mnorm": [
4343
"lange","langb","langt","lanhs","lanhf","lansf","lanhp","lansp",
4444
"lanhb","lansb","lanht","lanst","lantr","lantp","lantb","lansy",
4545
"lanhe",
4646
],
4747
"blas_like_scalar": [
48-
"isnan","laisnan","ladiv","lapy2","lapy3","larmm"
48+
"isnan","laisnan","ladiv","lapy2","lapy3"
4949
],
5050
"blas_like_l1": [
5151
"lacgv","lasrt","lassq","rscl","srscl","drscl"
5252
],
5353
"blas_like_l2": [
54-
"lascl","la_geamv","la_gbamv","la_heamv","lascl2","larscl2","la_wwaddw",
54+
"lascl","la_geamv","la_gbamv","la_heamv","la_wwaddw",
5555
"spmv", "spr", "symv", "syr",
5656
],
5757
"blas_like_l3": [
@@ -69,60 +69,60 @@
6969
"lacn2", "lacon", "la_lin_berr"
7070
],
7171
"solve_lu": [
72-
"gesv", "gesvx", "gesvxx",
73-
"gbsv", "gbsvx", "gbsvxx",
72+
"gesv", "gesvx",
73+
"gbsv", "gbsvx",
7474
"gtsv", "gtsvx"
7575
],
7676
"solve_lu_comp": [
77-
"gecon", "getrf", "getrf2", "getf2", "getrs", "getri", "gerfs", "gerfsx", "geequ", "geequb", "laqge", "laswp", "getc2", "gesc2", "latdf", "la_gercond", "la_gerfsx_extended",
78-
"gbcon", "gbtrf", "gbtf2", "gbtrs", "gbrfs", "gbrfsx", "gbequ", "gbequb", "laqgb", "la_gbrcond", "la_gbrpvgrw", "la_gbrfsx_extended",
77+
"gecon", "getrf", "getrf2", "getf2", "getrs", "getri", "gerfs", "geequ", "geequb", "laqge", "laswp", "getc2", "gesc2", "latdf", "la_gercond",
78+
"gbcon", "gbtrf", "gbtf2", "gbtrs", "gbrfs", "gbequ", "gbequb", "laqgb", "la_gbrcond", "la_gbrpvgrw",
7979
"gtcon", "gttrf", "gttrs", "gtts2", "gtrfs"
8080
],
8181
"solve_chol": [
82-
"posv", "posvx", "posvxx",
83-
"ppsv", "ppsvx", "pfsv",
82+
"posv", "posvx",
83+
"ppsv", "ppsvx",
8484
"pbsv", "pbsvx", "ptsv", "ptsvx"
8585
],
8686
"solve_chol_comp": [
87-
"pocon","potrf", "potrf2", "potf2", "pstrf", "pstf2", "potrs", "potri", "porfs", "porfsx", "poequ", "poequb", "laqhe", "la_porcond", "la_porpvgrw", "la_porfsx_extended",
87+
"pocon","potrf", "potrf2", "potf2", "pstrf", "pstf2", "potrs", "potri", "porfs", "poequ", "poequb", "laqhe", "la_porcond", "la_porpvgrw",
8888
"ppcon", "pptrf", "pptrs", "pptri", "pprfs", "ppequ", "laqhp",
8989
"pftrf", "pftrs", "pftri",
9090
"pbcon", "pbtrf", "pbtf2", "pbtrs", "pbrfs", "pbequ", "laqhb",
9191
"ptcon", "pttrf", "pttrs", "ptts2", "ptrfs",
9292
"laqsp"
9393
],
9494
"solve_ldl": [
95-
"sysv", "sysvx", "sysv_rk", "sysv_rook", "sysvxx",
96-
"hesv", "hesvx", "hesv_rk", "hesv_rook", "hesvxx",
95+
"sysv", "sysvx", "sysv_rk", "sysv_rook",
96+
"hesv", "hesvx", "hesv_rk", "hesv_rook",
9797
"spsv", "spsvx", "hpsv", "hpsvx",
98-
"sysv_aa", "sysv_aa_2stage",
99-
"hesv_aa", "hesv_aa_2stage"
98+
"sysv_aa",
99+
"hesv_aa",
100100
],
101101
"solve_ldl_comp": [
102-
"sycon","sytrf","lasyf","sytf2","sytrs","sytri","syrfs","syrfsx","syequb",
103-
"syconv","sycon_3","sytri2","sytri2x","sytri_3","sytri_3x","sytrs2","sytrs_3",
104-
"syswapr","la_hercond","la_herfsx_extended","la_herpvgrw","spcon","sptrf",
102+
"sycon","sytrf","lasyf","sytf2","sytrs","sytri","syrfs","syequb",
103+
"syconv","sytrs2","sytrs_3",
104+
"syswapr","la_herpvgrw","spcon","sptrf",
105105
],
106106
"solve_ldl_comp2": [
107107
"sptrs","sptri","sprfs","sycon_rook","sytrf_rook","lasyf_rook","sytf2_rook",
108108
"sytrs_rook","sytri_rook","sytrf_rk","lasyf_rk","sytf2_rk","syconvf","syconvf_rook",
109-
"sytrf_aa","lasyf_aa","sytrs_aa","sytrf_aa_2stage","sytrs_aa_2stage",
109+
"sytrf_aa","lasyf_aa","sytrs_aa",
110110
],
111111
"solve_ldl_comp3": [
112-
"hecon","hetrf","lahef","hetf2","hetrs","hetri","herfs","herfsx","heequb",
113-
"hecon_3","hetri2","hetri2x","hetri_3","hetri_3x","hetrs2","hetrs_3","heswapr",
112+
"hecon","hetrf","lahef","hetf2","hetrs","hetri","herfs","heequb",
113+
"hetrs2","hetrs_3","heswapr",
114114
"hpcon","hptrf","hptrs","hptri",
115115
],
116116
"solve_ldl_comp4": [
117117
"hprfs","hecon_rook","hetrf_rook","lahef_rook","hetf2_rook","hetrs_rook",
118118
"hetri_rook","hetrf_rk","lahef_rk","hetf2_rk","hetrf_aa",
119-
"lahef_aa","hetrs_aa","hetrf_aa_2stage","hetrs_aa_2stage",
119+
"lahef_aa","hetrs_aa",
120120
"laqsy"
121121
],
122122

123123
"solve_tri_comp": [
124124
"trcon", "trtrs",
125-
"latrs", "latrs3",
125+
"latrs",
126126
"trtri","trti2","trrfs",
127127
"lauum","lauu2",
128128
"tpcon", "tptrs",
@@ -150,7 +150,7 @@
150150
],
151151

152152
"lsq": [
153-
"gelss", "gelsy", "gels", "gelst", "gelsd", "getsls"
153+
"gelss", "gelsy", "gels", "gelsd", "getsls"
154154
],
155155
"lsq_constrained": [
156156
"gglse", "ggglm"
@@ -170,16 +170,15 @@
170170

171171
"eigv_gen": [
172172
"geev","geevx","gees","geesx","ggev3","ggev","ggevx","gges3","gges",
173-
"ggesx","cgedmd","cgedmdq","dgedmd","dgedmdq","sgedmd","sgedmdq","zgedmd",
174-
"zgedmdq","gebal","gehrd","gehd2","gebak","lahr2","unghr","unmhr","orghr","ormhr",
173+
"ggesx","gebal","gehrd","gehd2","gebak","lahr2","unghr","unmhr","orghr","ormhr",
175174
],
176175
"eigv_gen2": [
177-
"hseqr","hsein","trevc","trevc3","laln2","trsyl","trsyl3","lasy2",
176+
"hseqr","hsein","trevc","trevc3","laln2","trsyl","lasy2",
178177
"trsna","trexc","trsen","laexc","lanv2","laein",
179178
],
180179
"eigv_gen3": [
181180
"laqtr","lahqr","laqr0","laqr1","laqr2","laqr3","laqr4","laqr5",
182-
"laqz0","laqz1","laqz2","laqz3","laqz4","iparmq",
181+
"laqz0","laqz1","laqz2","laqz3","laqz4",
183182
],
184183
"eigv_comp": [
185184
"ggbal","gghrd","gghd3","hgeqz","ggbak",
@@ -194,11 +193,11 @@
194193
"upgtr","upmtr","hbtrd"
195194
],
196195
"eigv_sym": [
197-
"sygv","sygv_2stage","sygvd","sygvx","spgv","spgvd","spgvx","sbgv",
198-
"sbgvd","sbgvx","sytrd","sytd2","orgtr","ormtr","sytrd_2stage","sytrd_he2hb",
199-
"sytrd_hb2st","sb2st_kernels","hegv","hegv_2stage","hegvd","hegvx","hpgv",
196+
"sygv","sygvd","sygvx","spgv","spgvd","spgvx","sbgv",
197+
"sbgvd","sbgvx","sytrd","sytd2","orgtr","ormtr",
198+
"sb2st_kernels","hegv","hegvd","hegvx","hpgv",
200199
"hpgvd","hpgvx","hbgv","hbgvd","hbgvx","hetrd","hetd2","ungtr","unmtr",
201-
"hetrd_2stage","hetrd_he2hb","hetrd_hb2st","hb2st_kernels",
200+
"hetrd_he2hb","hetrd_hb2st","hb2st_kernels",
202201
"sytrd_sb2st", "sytrd_sy2sb",
203202
],
204203
"eigv_tridiag": [
@@ -218,23 +217,23 @@
218217
"lasda","lasd6","lasd7","lasd8",
219218
],
220219
"eigv_svd_drivers": [
221-
"gesvd", "gesvdq", "ggsvd3",
220+
"gesvd", "gesvdq",
222221
],
223222
"eigv_svd_drivers2": [
224-
"gesdd", "gesvdx", "gejsv", "gesvj",
223+
"gesdd", "gejsv", "gesvj",
225224
],
226225
"eigv_svd_drivers3": [
227-
"bdsqr", "bdsdc", "bdsvdx",
226+
"bdsqr", "bdsdc",
228227
],
229228
"eigv_std_driver": [
230-
"syev","syevd","syevr","syevx","syev_2stage","syevd_2stage","syevr_2stage",
231-
"syevx_2stage","spev","spevd","spevx","sbev","sbevd","sbevx","sbev_2stage",
232-
"sbevd_2stage","sbevx_2stage","heev","heevd","heevr","heevx","heev_2stage",
233-
"heevd_2stage","heevr_2stage","heevx_2stage","hpev","hpevd","hpevx","hbev",
234-
"hbevd","hbevx","hbev_2stage","hbevd_2stage","hbevx_2stage",
229+
"syev","syevd","syevr","syevx",
230+
"spev","spevd","spevx","sbev","sbevd","sbevx",
231+
"heev","heevd","heevr","heevx",
232+
"hpev","hpevd","hpevx","hbev",
233+
"hbevd","hbevx",
235234
],
236235
"svd_comp": [
237-
"gebrd", "gebd2", "gbbrd", "gsvj0", "gsvj1","ggsvp3","tgsja",
236+
"gebrd", "gebd2", "gbbrd", "gsvj0", "gsvj1","tgsja",
238237
"ungbr","orgbr","unmbr","ormbr",
239238
],
240239
"svd_comp2": [

‎src/lapack/stdlib_lapack_auxiliary_others.fypp‎

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

9-
10-
11-
12-
13-
14-
15-
16-
179
pure module subroutine stdlib${ii}$_sladiv1( a, b, c, d, p, q )
1810
! -- lapack auxiliary routine --
1911
! -- lapack is a software package provided by univ. of tennessee, --

‎src/lapack/stdlib_lapack_auxiliary_parameters.fypp‎

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -160,10 +160,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
160160

161161

162162

163-
164-
165-
166-
167163
pure real(sp) module function stdlib${ii}$_slamc3( a, b )
168164
! -- lapack auxiliary routine --
169165
! univ. of tennessee, univ. of california berkeley and nag ltd..
@@ -207,10 +203,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
207203

208204

209205

210-
211-
212-
213-
214206
pure module subroutine stdlib${ii}$_slabad( small, large )
215207
!! SLABAD takes as input the values computed by SLAMCH for underflow and
216208
!! overflow, and returns the square root of each of these values if the
@@ -299,8 +291,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters
299291

300292

301293

302-
303-
304294
pure real(sp) module function stdlib${ii}$_scsum1( n, cx, incx )
305295
!! SCSUM1 takes the sum of the absolute values of a complex
306296
!! vector and returns a single precision result.

‎src/lapack/stdlib_lapack_base.fypp‎

Lines changed: 0 additions & 84 deletions
Original file line numberDiff line numberDiff line change
@@ -31,18 +31,6 @@ interface
3131
end interface
3232

3333

34-
interface
35-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
36-
#:endfor
37-
end interface
38-
39-
40-
interface
41-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
42-
#:endfor
43-
end interface
44-
45-
4634
interface
4735
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
4836
pure real(sp) module function stdlib${ii}$_slamc3( a, b )
@@ -69,18 +57,6 @@ interface
6957
end interface
7058

7159

72-
interface
73-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
74-
#:endfor
75-
end interface
76-
77-
78-
interface
79-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
80-
#:endfor
81-
end interface
82-
83-
8460
interface
8561
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
8662
pure module subroutine stdlib${ii}$_slabad( small, large )
@@ -107,12 +83,6 @@ interface
10783
end interface
10884

10985

110-
interface
111-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
112-
#:endfor
113-
end interface
114-
115-
11686
interface
11787
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
11888
pure real(sp) module function stdlib${ii}$_scsum1( n, cx, incx )
@@ -224,30 +194,6 @@ interface
224194
end interface
225195

226196

227-
interface
228-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
229-
#:endfor
230-
end interface
231-
232-
233-
interface
234-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
235-
#:endfor
236-
end interface
237-
238-
239-
interface
240-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
241-
#:endfor
242-
end interface
243-
244-
245-
interface
246-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
247-
#:endfor
248-
end interface
249-
250-
251197
interface
252198
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
253199
pure module subroutine stdlib${ii}$_sladiv1( a, b, c, d, p, q )
@@ -1014,12 +960,6 @@ interface
1014960
end interface
1015961

1016962

1017-
interface
1018-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
1019-
#:endfor
1020-
end interface
1021-
1022-
1023963
interface
1024964
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
1025965
pure module subroutine stdlib${ii}$_dlag2s( m, n, a, lda, sa, ldsa, info )
@@ -1090,12 +1030,6 @@ interface
10901030
end interface
10911031

10921032

1093-
interface
1094-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
1095-
#:endfor
1096-
end interface
1097-
1098-
10991033
interface
11001034
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
11011035
pure logical(lk) module function stdlib${ii}$_sisnan( sin )
@@ -1252,12 +1186,6 @@ interface
12521186
end interface
12531187

12541188

1255-
interface
1256-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
1257-
#:endfor
1258-
end interface
1259-
1260-
12611189
interface
12621190
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
12631191
pure module subroutine stdlib${ii}$_clacgv( n, x, incx )
@@ -1692,18 +1620,6 @@ interface
16921620
end interface
16931621

16941622

1695-
interface
1696-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
1697-
#:endfor
1698-
end interface
1699-
1700-
1701-
interface
1702-
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
1703-
#:endfor
1704-
end interface
1705-
1706-
17071623
interface
17081624
#:for ik,it,ii in LINALG_INT_KINDS_TYPES
17091625
pure module subroutine stdlib${ii}$_sla_wwaddw( n, x, y, w )

‎src/lapack/stdlib_lapack_blas_like_base.fypp‎

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -8301,8 +8301,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base
83018301

83028302

83038303

8304-
8305-
83068304
pure module subroutine stdlib${ii}$_dlag2s( m, n, a, lda, sa, ldsa, info )
83078305
!! DLAG2S converts a DOUBLE PRECISION matrix, SA, to a SINGLE
83088306
!! PRECISION matrix, A.
@@ -8524,7 +8522,5 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base
85248522
end subroutine stdlib${ii}$_slag2d
85258523

85268524

8527-
8528-
85298525
#:endfor
85308526
end submodule stdlib_lapack_blas_like_base

0 commit comments

Comments
 (0)