From ae12308b07001d47c641ae6be64e0a45d1ee7bf6 Mon Sep 17 00:00:00 2001 From: jalvesz Date: Tue, 31 Dec 2024 11:34:27 +0100 Subject: [PATCH] cleanup procedures --- legacy/refactor_blaslapack_subm.py | 83 ++++--- .../stdlib_lapack_auxiliary_others.fypp | 8 - .../stdlib_lapack_auxiliary_parameters.fypp | 10 - src/lapack/stdlib_lapack_base.fypp | 84 ------- src/lapack/stdlib_lapack_blas_like_base.fypp | 4 - src/lapack/stdlib_lapack_blas_like_l2.fypp | 4 - .../stdlib_lapack_blas_like_scalar.fypp | 2 - src/lapack/stdlib_lapack_eig_svd_lsq.fypp | 210 ------------------ src/lapack/stdlib_lapack_eigv_gen.fypp | 16 -- src/lapack/stdlib_lapack_eigv_gen2.fypp | 2 - src/lapack/stdlib_lapack_eigv_gen3.fypp | 2 - src/lapack/stdlib_lapack_eigv_std_driver.fypp | 28 --- .../stdlib_lapack_eigv_svd_drivers.fypp | 2 - .../stdlib_lapack_eigv_svd_drivers2.fypp | 2 - .../stdlib_lapack_eigv_svd_drivers3.fypp | 2 - src/lapack/stdlib_lapack_eigv_sym.fypp | 12 - src/lapack/stdlib_lapack_lsq.fypp | 2 - src/lapack/stdlib_lapack_solve.fypp | 198 ----------------- src/lapack/stdlib_lapack_solve_chol.fypp | 4 - src/lapack/stdlib_lapack_solve_chol_comp.fypp | 4 - src/lapack/stdlib_lapack_solve_ldl.fypp | 8 - src/lapack/stdlib_lapack_solve_ldl_comp.fypp | 16 -- src/lapack/stdlib_lapack_solve_ldl_comp2.fypp | 4 - src/lapack/stdlib_lapack_solve_ldl_comp3.fypp | 12 - src/lapack/stdlib_lapack_solve_ldl_comp4.fypp | 4 - src/lapack/stdlib_lapack_solve_lu.fypp | 4 - src/lapack/stdlib_lapack_solve_lu_comp.fypp | 8 - src/lapack/stdlib_lapack_solve_tri_comp.fypp | 2 - src/lapack/stdlib_lapack_svd_comp.fypp | 2 - 29 files changed, 41 insertions(+), 698 deletions(-) diff --git a/legacy/refactor_blaslapack_subm.py b/legacy/refactor_blaslapack_subm.py index f48bca619..76047f8e1 100644 --- a/legacy/refactor_blaslapack_subm.py +++ b/legacy/refactor_blaslapack_subm.py @@ -28,16 +28,16 @@ # Define the LAPACK routine groups lapack_groups = { "auxiliary_parameters": [ - "lamch", "lamc1", "lamc2", "lamc3", "lamc4", "lamc5", "labad", "sum1", "csum1", "zsum1", + "lamch", "lamc3", "labad", "csum1", "zsum1", "laqsb" ], "auxiliary_others": [ - "lsame","lsamen","roundup_lwork","scond","ladiv1","ladiv2", "rot" + "ladiv1","ladiv2", "rot" ], "blas_like_base": [ "laset","larnv","laruv","lacpy","lacp2","tfttp","tfttr","tpttf", - "tpttr","trttf","trttp","lat2","lag2s","lat2s","lag2d","lat2d" + "tpttr","trttf","trttp","lag2s","lat2s","lag2d", ], "blas_like_mnorm": [ "lange","langb","langt","lanhs","lanhf","lansf","lanhp","lansp", @@ -45,13 +45,13 @@ "lanhe", ], "blas_like_scalar": [ - "isnan","laisnan","ladiv","lapy2","lapy3","larmm" + "isnan","laisnan","ladiv","lapy2","lapy3" ], "blas_like_l1": [ "lacgv","lasrt","lassq","rscl","srscl","drscl" ], "blas_like_l2": [ - "lascl","la_geamv","la_gbamv","la_heamv","lascl2","larscl2","la_wwaddw", + "lascl","la_geamv","la_gbamv","la_heamv","la_wwaddw", "spmv", "spr", "symv", "syr", ], "blas_like_l3": [ @@ -69,22 +69,22 @@ "lacn2", "lacon", "la_lin_berr" ], "solve_lu": [ - "gesv", "gesvx", "gesvxx", - "gbsv", "gbsvx", "gbsvxx", + "gesv", "gesvx", + "gbsv", "gbsvx", "gtsv", "gtsvx" ], "solve_lu_comp": [ - "gecon", "getrf", "getrf2", "getf2", "getrs", "getri", "gerfs", "gerfsx", "geequ", "geequb", "laqge", "laswp", "getc2", "gesc2", "latdf", "la_gercond", "la_gerfsx_extended", - "gbcon", "gbtrf", "gbtf2", "gbtrs", "gbrfs", "gbrfsx", "gbequ", "gbequb", "laqgb", "la_gbrcond", "la_gbrpvgrw", "la_gbrfsx_extended", + "gecon", "getrf", "getrf2", "getf2", "getrs", "getri", "gerfs", "geequ", "geequb", "laqge", "laswp", "getc2", "gesc2", "latdf", "la_gercond", + "gbcon", "gbtrf", "gbtf2", "gbtrs", "gbrfs", "gbequ", "gbequb", "laqgb", "la_gbrcond", "la_gbrpvgrw", "gtcon", "gttrf", "gttrs", "gtts2", "gtrfs" ], "solve_chol": [ - "posv", "posvx", "posvxx", - "ppsv", "ppsvx", "pfsv", + "posv", "posvx", + "ppsv", "ppsvx", "pbsv", "pbsvx", "ptsv", "ptsvx" ], "solve_chol_comp": [ - "pocon","potrf", "potrf2", "potf2", "pstrf", "pstf2", "potrs", "potri", "porfs", "porfsx", "poequ", "poequb", "laqhe", "la_porcond", "la_porpvgrw", "la_porfsx_extended", + "pocon","potrf", "potrf2", "potf2", "pstrf", "pstf2", "potrs", "potri", "porfs", "poequ", "poequb", "laqhe", "la_porcond", "la_porpvgrw", "ppcon", "pptrf", "pptrs", "pptri", "pprfs", "ppequ", "laqhp", "pftrf", "pftrs", "pftri", "pbcon", "pbtrf", "pbtf2", "pbtrs", "pbrfs", "pbequ", "laqhb", @@ -92,37 +92,37 @@ "laqsp" ], "solve_ldl": [ - "sysv", "sysvx", "sysv_rk", "sysv_rook", "sysvxx", - "hesv", "hesvx", "hesv_rk", "hesv_rook", "hesvxx", + "sysv", "sysvx", "sysv_rk", "sysv_rook", + "hesv", "hesvx", "hesv_rk", "hesv_rook", "spsv", "spsvx", "hpsv", "hpsvx", - "sysv_aa", "sysv_aa_2stage", - "hesv_aa", "hesv_aa_2stage" + "sysv_aa", + "hesv_aa", ], "solve_ldl_comp": [ - "sycon","sytrf","lasyf","sytf2","sytrs","sytri","syrfs","syrfsx","syequb", - "syconv","sycon_3","sytri2","sytri2x","sytri_3","sytri_3x","sytrs2","sytrs_3", - "syswapr","la_hercond","la_herfsx_extended","la_herpvgrw","spcon","sptrf", + "sycon","sytrf","lasyf","sytf2","sytrs","sytri","syrfs","syequb", + "syconv","sytrs2","sytrs_3", + "syswapr","la_herpvgrw","spcon","sptrf", ], "solve_ldl_comp2": [ "sptrs","sptri","sprfs","sycon_rook","sytrf_rook","lasyf_rook","sytf2_rook", "sytrs_rook","sytri_rook","sytrf_rk","lasyf_rk","sytf2_rk","syconvf","syconvf_rook", - "sytrf_aa","lasyf_aa","sytrs_aa","sytrf_aa_2stage","sytrs_aa_2stage", + "sytrf_aa","lasyf_aa","sytrs_aa", ], "solve_ldl_comp3": [ - "hecon","hetrf","lahef","hetf2","hetrs","hetri","herfs","herfsx","heequb", - "hecon_3","hetri2","hetri2x","hetri_3","hetri_3x","hetrs2","hetrs_3","heswapr", + "hecon","hetrf","lahef","hetf2","hetrs","hetri","herfs","heequb", + "hetrs2","hetrs_3","heswapr", "hpcon","hptrf","hptrs","hptri", ], "solve_ldl_comp4": [ "hprfs","hecon_rook","hetrf_rook","lahef_rook","hetf2_rook","hetrs_rook", "hetri_rook","hetrf_rk","lahef_rk","hetf2_rk","hetrf_aa", - "lahef_aa","hetrs_aa","hetrf_aa_2stage","hetrs_aa_2stage", + "lahef_aa","hetrs_aa", "laqsy" ], "solve_tri_comp": [ "trcon", "trtrs", - "latrs", "latrs3", + "latrs", "trtri","trti2","trrfs", "lauum","lauu2", "tpcon", "tptrs", @@ -150,7 +150,7 @@ ], "lsq": [ - "gelss", "gelsy", "gels", "gelst", "gelsd", "getsls" + "gelss", "gelsy", "gels", "gelsd", "getsls" ], "lsq_constrained": [ "gglse", "ggglm" @@ -170,16 +170,15 @@ "eigv_gen": [ "geev","geevx","gees","geesx","ggev3","ggev","ggevx","gges3","gges", - "ggesx","cgedmd","cgedmdq","dgedmd","dgedmdq","sgedmd","sgedmdq","zgedmd", - "zgedmdq","gebal","gehrd","gehd2","gebak","lahr2","unghr","unmhr","orghr","ormhr", + "ggesx","gebal","gehrd","gehd2","gebak","lahr2","unghr","unmhr","orghr","ormhr", ], "eigv_gen2": [ - "hseqr","hsein","trevc","trevc3","laln2","trsyl","trsyl3","lasy2", + "hseqr","hsein","trevc","trevc3","laln2","trsyl","lasy2", "trsna","trexc","trsen","laexc","lanv2","laein", ], "eigv_gen3": [ "laqtr","lahqr","laqr0","laqr1","laqr2","laqr3","laqr4","laqr5", - "laqz0","laqz1","laqz2","laqz3","laqz4","iparmq", + "laqz0","laqz1","laqz2","laqz3","laqz4", ], "eigv_comp": [ "ggbal","gghrd","gghd3","hgeqz","ggbak", @@ -194,11 +193,11 @@ "upgtr","upmtr","hbtrd" ], "eigv_sym": [ - "sygv","sygv_2stage","sygvd","sygvx","spgv","spgvd","spgvx","sbgv", - "sbgvd","sbgvx","sytrd","sytd2","orgtr","ormtr","sytrd_2stage","sytrd_he2hb", - "sytrd_hb2st","sb2st_kernels","hegv","hegv_2stage","hegvd","hegvx","hpgv", + "sygv","sygvd","sygvx","spgv","spgvd","spgvx","sbgv", + "sbgvd","sbgvx","sytrd","sytd2","orgtr","ormtr", + "sb2st_kernels","hegv","hegvd","hegvx","hpgv", "hpgvd","hpgvx","hbgv","hbgvd","hbgvx","hetrd","hetd2","ungtr","unmtr", - "hetrd_2stage","hetrd_he2hb","hetrd_hb2st","hb2st_kernels", + "hetrd_he2hb","hetrd_hb2st","hb2st_kernels", "sytrd_sb2st", "sytrd_sy2sb", ], "eigv_tridiag": [ @@ -218,23 +217,23 @@ "lasda","lasd6","lasd7","lasd8", ], "eigv_svd_drivers": [ - "gesvd", "gesvdq", "ggsvd3", + "gesvd", "gesvdq", ], "eigv_svd_drivers2": [ - "gesdd", "gesvdx", "gejsv", "gesvj", + "gesdd", "gejsv", "gesvj", ], "eigv_svd_drivers3": [ - "bdsqr", "bdsdc", "bdsvdx", + "bdsqr", "bdsdc", ], "eigv_std_driver": [ - "syev","syevd","syevr","syevx","syev_2stage","syevd_2stage","syevr_2stage", - "syevx_2stage","spev","spevd","spevx","sbev","sbevd","sbevx","sbev_2stage", - "sbevd_2stage","sbevx_2stage","heev","heevd","heevr","heevx","heev_2stage", - "heevd_2stage","heevr_2stage","heevx_2stage","hpev","hpevd","hpevx","hbev", - "hbevd","hbevx","hbev_2stage","hbevd_2stage","hbevx_2stage", + "syev","syevd","syevr","syevx", + "spev","spevd","spevx","sbev","sbevd","sbevx", + "heev","heevd","heevr","heevx", + "hpev","hpevd","hpevx","hbev", + "hbevd","hbevx", ], "svd_comp": [ - "gebrd", "gebd2", "gbbrd", "gsvj0", "gsvj1","ggsvp3","tgsja", + "gebrd", "gebd2", "gbbrd", "gsvj0", "gsvj1","tgsja", "ungbr","orgbr","unmbr","ormbr", ], "svd_comp2": [ diff --git a/src/lapack/stdlib_lapack_auxiliary_others.fypp b/src/lapack/stdlib_lapack_auxiliary_others.fypp index 5aa6c805d..ec6ff05e9 100644 --- a/src/lapack/stdlib_lapack_auxiliary_others.fypp +++ b/src/lapack/stdlib_lapack_auxiliary_others.fypp @@ -6,14 +6,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_others contains #:for ik,it,ii in LINALG_INT_KINDS_TYPES - - - - - - - - pure module subroutine stdlib${ii}$_sladiv1( a, b, c, d, p, q ) ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- diff --git a/src/lapack/stdlib_lapack_auxiliary_parameters.fypp b/src/lapack/stdlib_lapack_auxiliary_parameters.fypp index 174a905dd..29f167e07 100644 --- a/src/lapack/stdlib_lapack_auxiliary_parameters.fypp +++ b/src/lapack/stdlib_lapack_auxiliary_parameters.fypp @@ -160,10 +160,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters - - - - pure real(sp) module function stdlib${ii}$_slamc3( a, b ) ! -- lapack auxiliary routine -- ! univ. of tennessee, univ. of california berkeley and nag ltd.. @@ -207,10 +203,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary_parameters - - - - pure module subroutine stdlib${ii}$_slabad( small, large ) !! SLABAD takes as input the values computed by SLAMCH for underflow and !! 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 - - pure real(sp) module function stdlib${ii}$_scsum1( n, cx, incx ) !! SCSUM1 takes the sum of the absolute values of a complex !! vector and returns a single precision result. diff --git a/src/lapack/stdlib_lapack_base.fypp b/src/lapack/stdlib_lapack_base.fypp index 742445d94..7ec56daba 100644 --- a/src/lapack/stdlib_lapack_base.fypp +++ b/src/lapack/stdlib_lapack_base.fypp @@ -31,18 +31,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure real(sp) module function stdlib${ii}$_slamc3( a, b ) @@ -69,18 +57,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_slabad( small, large ) @@ -107,12 +83,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure real(sp) module function stdlib${ii}$_scsum1( n, cx, incx ) @@ -224,30 +194,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sladiv1( a, b, c, d, p, q ) @@ -1014,12 +960,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_dlag2s( m, n, a, lda, sa, ldsa, info ) @@ -1090,12 +1030,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure logical(lk) module function stdlib${ii}$_sisnan( sin ) @@ -1252,12 +1186,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_clacgv( n, x, incx ) @@ -1692,18 +1620,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sla_wwaddw( n, x, y, w ) diff --git a/src/lapack/stdlib_lapack_blas_like_base.fypp b/src/lapack/stdlib_lapack_blas_like_base.fypp index ec5ca6913..cef164bf5 100644 --- a/src/lapack/stdlib_lapack_blas_like_base.fypp +++ b/src/lapack/stdlib_lapack_blas_like_base.fypp @@ -8301,8 +8301,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base - - pure module subroutine stdlib${ii}$_dlag2s( m, n, a, lda, sa, ldsa, info ) !! DLAG2S converts a DOUBLE PRECISION matrix, SA, to a SINGLE !! PRECISION matrix, A. @@ -8524,7 +8522,5 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base end subroutine stdlib${ii}$_slag2d - - #:endfor end submodule stdlib_lapack_blas_like_base diff --git a/src/lapack/stdlib_lapack_blas_like_l2.fypp b/src/lapack/stdlib_lapack_blas_like_l2.fypp index 1f0278a1b..d574a6bef 100644 --- a/src/lapack/stdlib_lapack_blas_like_l2.fypp +++ b/src/lapack/stdlib_lapack_blas_like_l2.fypp @@ -3877,10 +3877,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_l2 - - - - pure module subroutine stdlib${ii}$_sla_wwaddw( n, x, y, w ) !! SLA_WWADDW adds a vector W into a doubled-single vector (X, Y). !! This works for all extant IBM's hex and binary floating point diff --git a/src/lapack/stdlib_lapack_blas_like_scalar.fypp b/src/lapack/stdlib_lapack_blas_like_scalar.fypp index daf0c72a4..d29260989 100644 --- a/src/lapack/stdlib_lapack_blas_like_scalar.fypp +++ b/src/lapack/stdlib_lapack_blas_like_scalar.fypp @@ -633,7 +633,5 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_scalar #:endfor - - #:endfor end submodule stdlib_lapack_blas_like_scalar diff --git a/src/lapack/stdlib_lapack_eig_svd_lsq.fypp b/src/lapack/stdlib_lapack_eig_svd_lsq.fypp index f309ebc83..6075c841b 100644 --- a/src/lapack/stdlib_lapack_eig_svd_lsq.fypp +++ b/src/lapack/stdlib_lapack_eig_svd_lsq.fypp @@ -391,12 +391,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_stgsja( jobu, jobv, jobq, m, p, n, k, l, a, lda, b,ldb, tola, tolb, & @@ -2947,54 +2941,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sgebal( job, n, a, lda, ilo, ihi, scale, info ) @@ -3963,12 +3909,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_slasy2( ltranl, ltranr, isgn, n1, n2, tl, ldtl, tr,ldtr, b, ldb, & @@ -5374,12 +5314,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sggbal( job, n, a, lda, b, ldb, ilo, ihi, lscale,rscale, work, info ) @@ -9224,12 +9158,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_sgesdd( jobz, m, n, a, lda, s, u, ldu, vt, ldvt,work, lwork, iwork, info ) @@ -9315,12 +9243,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sgejsv( joba, jobu, jobv, jobr, jobt, jobp,m, n, a, lda, sva, u, ldu, & @@ -9608,12 +9530,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_ssyev( jobz, uplo, n, a, lda, w, work, lwork, info ) @@ -9787,30 +9703,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_sspev( jobz, uplo, n, ap, w, z, ldz, work, info ) @@ -10069,24 +9961,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_cheev( jobz, uplo, n, a, lda, w, work, lwork, rwork,info ) @@ -10275,30 +10149,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_chpev( jobz, uplo, n, ap, w, z, ldz, work, rwork,info ) @@ -10575,24 +10425,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_slasq1( n, d, e, work, info ) @@ -11901,12 +11733,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_ssygvd( itype, jobz, uplo, n, a, lda, b, ldb, w, work,lwork, iwork, liwork,& @@ -12420,24 +12246,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_ssb2st_kernels( uplo, wantz, ttype,st, ed, sweep, n, nb, ib,a, lda, & @@ -12523,12 +12331,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_chegvd( itype, jobz, uplo, n, a, lda, b, ldb, w, work,lwork, rwork, lrwork,& @@ -13072,12 +12874,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_chetrd_he2hb( uplo, n, kd, a, lda, ab, ldab, tau,work, lwork, info ) @@ -13887,12 +13683,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES module subroutine stdlib${ii}$_sgelsd( m, n, nrhs, a, lda, b, ldb, s, rcond,rank, work, lwork, iwork, & diff --git a/src/lapack/stdlib_lapack_eigv_gen.fypp b/src/lapack/stdlib_lapack_eigv_gen.fypp index d7997ff59..c837b75d0 100644 --- a/src/lapack/stdlib_lapack_eigv_gen.fypp +++ b/src/lapack/stdlib_lapack_eigv_gen.fypp @@ -17262,22 +17262,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_gen - - - - - - - - - - - - - - - - pure module subroutine stdlib${ii}$_sgebal( job, n, a, lda, ilo, ihi, scale, info ) !! SGEBAL balances a general real matrix A. This involves, first, !! permuting A by a similarity transformation to isolate eigenvalues diff --git a/src/lapack/stdlib_lapack_eigv_gen2.fypp b/src/lapack/stdlib_lapack_eigv_gen2.fypp index de6f1ac43..1f7a16d50 100644 --- a/src/lapack/stdlib_lapack_eigv_gen2.fypp +++ b/src/lapack/stdlib_lapack_eigv_gen2.fypp @@ -11515,8 +11515,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_gen2 - - pure module subroutine stdlib${ii}$_slasy2( ltranl, ltranr, isgn, n1, n2, tl, ldtl, tr,ldtr, b, ldb, & !! SLASY2 solves for the N1 by N2 matrix X, 1 <= N1,N2 <= 2, in !! op(TL)*X + ISGN*X*op(TR) = SCALE*B, diff --git a/src/lapack/stdlib_lapack_eigv_gen3.fypp b/src/lapack/stdlib_lapack_eigv_gen3.fypp index 995b0328e..4d772797c 100644 --- a/src/lapack/stdlib_lapack_eigv_gen3.fypp +++ b/src/lapack/stdlib_lapack_eigv_gen3.fypp @@ -19242,7 +19242,5 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_gen3 #:endfor - - #:endfor end submodule stdlib_lapack_eigv_gen3 diff --git a/src/lapack/stdlib_lapack_eigv_std_driver.fypp b/src/lapack/stdlib_lapack_eigv_std_driver.fypp index c5ad8ecd3..a376c60e6 100644 --- a/src/lapack/stdlib_lapack_eigv_std_driver.fypp +++ b/src/lapack/stdlib_lapack_eigv_std_driver.fypp @@ -2459,14 +2459,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_std_driver - - - - - - - - module subroutine stdlib${ii}$_sspev( jobz, uplo, n, ap, w, z, ldz, work, info ) !! SSPEV computes all the eigenvalues and, optionally, eigenvectors of a !! real symmetric matrix A in packed storage. @@ -5164,12 +5156,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_std_driver - - - - - - module subroutine stdlib${ii}$_cheev( jobz, uplo, n, a, lda, w, work, lwork, rwork,info ) !! CHEEV computes all eigenvalues and, optionally, eigenvectors of a !! complex Hermitian matrix A. @@ -7736,14 +7722,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_std_driver - - - - - - - - module subroutine stdlib${ii}$_chpev( jobz, uplo, n, ap, w, z, ldz, work, rwork,info ) !! CHPEV computes all the eigenvalues and, optionally, eigenvectors of a !! complex Hermitian matrix in packed storage. @@ -10590,11 +10568,5 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_std_driver #:endfor - - - - - - #:endfor end submodule stdlib_lapack_eigv_std_driver diff --git a/src/lapack/stdlib_lapack_eigv_svd_drivers.fypp b/src/lapack/stdlib_lapack_eigv_svd_drivers.fypp index 57cd144a4..1fb1b0f59 100644 --- a/src/lapack/stdlib_lapack_eigv_svd_drivers.fypp +++ b/src/lapack/stdlib_lapack_eigv_svd_drivers.fypp @@ -19345,7 +19345,5 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_svd_drivers #:endfor - - #:endfor end submodule stdlib_lapack_eigv_svd_drivers diff --git a/src/lapack/stdlib_lapack_eigv_svd_drivers2.fypp b/src/lapack/stdlib_lapack_eigv_svd_drivers2.fypp index 83b45c116..f1701fd70 100644 --- a/src/lapack/stdlib_lapack_eigv_svd_drivers2.fypp +++ b/src/lapack/stdlib_lapack_eigv_svd_drivers2.fypp @@ -7410,8 +7410,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_svd_drivers2 - - pure module subroutine stdlib${ii}$_sgejsv( joba, jobu, jobv, jobr, jobt, jobp,m, n, a, lda, sva, u, ldu, & !! SGEJSV computes the singular value decomposition (SVD) of a real M-by-N !! matrix [A], where M >= N. The SVD of [A] is written as diff --git a/src/lapack/stdlib_lapack_eigv_svd_drivers3.fypp b/src/lapack/stdlib_lapack_eigv_svd_drivers3.fypp index f7702b9dc..ace72b1e9 100644 --- a/src/lapack/stdlib_lapack_eigv_svd_drivers3.fypp +++ b/src/lapack/stdlib_lapack_eigv_svd_drivers3.fypp @@ -3576,7 +3576,5 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_svd_drivers3 #:endfor - - #:endfor end submodule stdlib_lapack_eigv_svd_drivers3 diff --git a/src/lapack/stdlib_lapack_eigv_sym.fypp b/src/lapack/stdlib_lapack_eigv_sym.fypp index 33d49d01b..b151140cb 100644 --- a/src/lapack/stdlib_lapack_eigv_sym.fypp +++ b/src/lapack/stdlib_lapack_eigv_sym.fypp @@ -310,8 +310,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_sym - - module subroutine stdlib${ii}$_ssygvd( itype, jobz, uplo, n, a, lda, b, ldb, w, work,lwork, iwork, liwork,& !! SSYGVD computes all the eigenvalues, and optionally, the eigenvectors !! of a real generalized symmetric-definite eigenproblem, of the form @@ -4527,12 +4525,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_sym - - - - - - pure module subroutine stdlib${ii}$_ssb2st_kernels( uplo, wantz, ttype,st, ed, sweep, n, nb, ib,a, lda, & !! SSB2ST_KERNELS is an internal routine used by the SSYTRD_SB2ST !! subroutine. @@ -5279,8 +5271,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_sym - - module subroutine stdlib${ii}$_chegvd( itype, jobz, uplo, n, a, lda, b, ldb, w, work,lwork, rwork, lrwork,& !! CHEGVD computes all the eigenvalues, and optionally, the eigenvectors !! of a complex generalized Hermitian-definite eigenproblem, of the form @@ -9643,8 +9633,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_eigv_sym - - module subroutine stdlib${ii}$_chetrd_he2hb( uplo, n, kd, a, lda, ab, ldab, tau,work, lwork, info ) !! CHETRD_HE2HB reduces a complex Hermitian matrix A to complex Hermitian !! band-diagonal form AB by a unitary similarity transformation: diff --git a/src/lapack/stdlib_lapack_lsq.fypp b/src/lapack/stdlib_lapack_lsq.fypp index 7fbb428a9..d80e05359 100644 --- a/src/lapack/stdlib_lapack_lsq.fypp +++ b/src/lapack/stdlib_lapack_lsq.fypp @@ -5400,8 +5400,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_lsq - - module subroutine stdlib${ii}$_sgelsd( m, n, nrhs, a, lda, b, ldb, s, rcond,rank, work, lwork, iwork, & !! SGELSD computes the minimum-norm solution to a real linear least !! squares problem: diff --git a/src/lapack/stdlib_lapack_solve.fypp b/src/lapack/stdlib_lapack_solve.fypp index 3d570f3bf..259a7b86f 100644 --- a/src/lapack/stdlib_lapack_solve.fypp +++ b/src/lapack/stdlib_lapack_solve.fypp @@ -459,12 +459,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_strtri( uplo, diag, n, a, lda, info ) @@ -2101,12 +2095,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sgeequ( m, n, a, lda, r, c, rowcnd, colcnd, amax,info ) @@ -2620,12 +2608,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sgbcon( norm, n, kl, ku, ab, ldab, ipiv, anorm, rcond,work, iwork, & @@ -3024,12 +3006,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sgbequ( m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd,amax, info ) @@ -3357,12 +3333,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sgtcon( norm, n, dl, d, du, du2, ipiv, anorm, rcond,work, iwork, info & @@ -3937,12 +3907,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sgbsv( n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb, info ) @@ -4110,12 +4074,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sgtsv( n, nrhs, dl, d, du, b, ldb, info ) @@ -4940,12 +4898,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_spoequ( n, a, lda, s, scond, amax, info ) @@ -5235,12 +5187,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sppcon( uplo, n, ap, anorm, rcond, work, iwork, info ) @@ -7421,12 +7367,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_ssyequb( uplo, n, a, lda, s, scond, amax, work, info ) @@ -7582,36 +7522,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_ssytrs2( uplo, n, nrhs, a, lda, ipiv, b, ldb,work, info ) @@ -7822,18 +7732,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES real(sp) module function stdlib${ii}$_cla_herpvgrw( uplo, n, info, a, lda, af, ldaf, ipiv,work ) @@ -9349,18 +9247,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_checon( uplo, n, a, lda, ipiv, anorm, rcond, work,info ) @@ -9660,12 +9546,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_cheequb( uplo, n, a, lda, s, scond, amax, work, info ) @@ -9710,36 +9590,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_chetrs2( uplo, n, nrhs, a, lda, ipiv, b, ldb,work, info ) @@ -10569,18 +10419,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_slaqsy( uplo, n, a, lda, s, scond, amax, equed ) @@ -10818,12 +10656,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sppsv( uplo, n, nrhs, ap, b, ldb, info ) @@ -10985,12 +10817,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_spbsv( uplo, n, kd, nrhs, ab, ldab, b, ldb, info ) @@ -11650,12 +11476,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_chesv( uplo, n, nrhs, a, lda, ipiv, b, ldb, work,lwork, info ) @@ -11838,12 +11658,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_sspsv( uplo, n, nrhs, ap, ipiv, b, ldb, info ) @@ -12187,12 +12001,6 @@ interface end interface -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - - interface #:for ik,it,ii in LINALG_INT_KINDS_TYPES pure module subroutine stdlib${ii}$_chesv_aa( uplo, n, nrhs, a, lda, ipiv, b, ldb, work,lwork, info ) @@ -12236,10 +12044,4 @@ interface #:endfor end interface - -interface -#:for ik,it,ii in LINALG_INT_KINDS_TYPES -#:endfor -end interface - end module stdlib_lapack_solve diff --git a/src/lapack/stdlib_lapack_solve_chol.fypp b/src/lapack/stdlib_lapack_solve_chol.fypp index 1cfde6fc0..dec0d3e56 100644 --- a/src/lapack/stdlib_lapack_solve_chol.fypp +++ b/src/lapack/stdlib_lapack_solve_chol.fypp @@ -1185,8 +1185,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_chol - - pure module subroutine stdlib${ii}$_sppsv( uplo, n, nrhs, ap, b, ldb, info ) !! SPPSV computes the solution to a real system of linear equations !! A * X = B, @@ -2330,8 +2328,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_chol - - pure module subroutine stdlib${ii}$_spbsv( uplo, n, kd, nrhs, ab, ldab, b, ldb, info ) !! SPBSV computes the solution to a real system of linear equations !! A * X = B, diff --git a/src/lapack/stdlib_lapack_solve_chol_comp.fypp b/src/lapack/stdlib_lapack_solve_chol_comp.fypp index e1e63fe1e..e174ec57b 100644 --- a/src/lapack/stdlib_lapack_solve_chol_comp.fypp +++ b/src/lapack/stdlib_lapack_solve_chol_comp.fypp @@ -6546,8 +6546,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_chol_comp - - pure module subroutine stdlib${ii}$_spoequ( n, a, lda, s, scond, amax, info ) !! SPOEQU computes row and column scalings intended to equilibrate a !! symmetric positive definite matrix A and reduce its condition number @@ -8716,8 +8714,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_chol_comp - - pure module subroutine stdlib${ii}$_sppcon( uplo, n, ap, anorm, rcond, work, iwork, info ) !! SPPCON estimates the reciprocal of the condition number (in the !! 1-norm) of a real symmetric positive definite packed matrix using diff --git a/src/lapack/stdlib_lapack_solve_ldl.fypp b/src/lapack/stdlib_lapack_solve_ldl.fypp index 3abb6c6df..ecf87ad63 100644 --- a/src/lapack/stdlib_lapack_solve_ldl.fypp +++ b/src/lapack/stdlib_lapack_solve_ldl.fypp @@ -2015,8 +2015,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl - - pure module subroutine stdlib${ii}$_chesv( uplo, n, nrhs, a, lda, ipiv, b, ldb, work,lwork, info ) !! CHESV computes the solution to a complex system of linear equations !! A * X = B, @@ -3025,8 +3023,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl - - pure module subroutine stdlib${ii}$_sspsv( uplo, n, nrhs, ap, ipiv, b, ldb, info ) !! SSPSV computes the solution to a real system of linear equations !! A * X = B, @@ -4646,8 +4642,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl - - pure module subroutine stdlib${ii}$_chesv_aa( uplo, n, nrhs, a, lda, ipiv, b, ldb, work,lwork, info ) !! CHESV_AA computes the solution to a complex system of linear equations !! A * X = B, @@ -4867,7 +4861,5 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl #:endfor - - #:endfor end submodule stdlib_lapack_solve_ldl diff --git a/src/lapack/stdlib_lapack_solve_ldl_comp.fypp b/src/lapack/stdlib_lapack_solve_ldl_comp.fypp index 5a7b3d8d2..5dd9f5651 100644 --- a/src/lapack/stdlib_lapack_solve_ldl_comp.fypp +++ b/src/lapack/stdlib_lapack_solve_ldl_comp.fypp @@ -9193,8 +9193,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl_comp - - pure module subroutine stdlib${ii}$_ssyequb( uplo, n, a, lda, s, scond, amax, work, info ) !! SSYEQUB computes row and column scalings intended to equilibrate a !! symmetric matrix A (with respect to the Euclidean norm) and reduce @@ -11517,16 +11515,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl_comp - - - - - - - - - - pure module subroutine stdlib${ii}$_ssytrs2( uplo, n, nrhs, a, lda, ipiv, b, ldb,work, info ) !! SSYTRS2 solves a system of linear equations A*X = B with a real !! symmetric matrix A using the factorization A = U*D*U**T or @@ -13969,10 +13957,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl_comp - - - - real(sp) module function stdlib${ii}$_cla_herpvgrw( uplo, n, info, a, lda, af, ldaf, ipiv,work ) !! CLA_HERPVGRW computes the reciprocal pivot growth factor !! norm(A)/norm(U). The "max absolute element" norm is used. If this is diff --git a/src/lapack/stdlib_lapack_solve_ldl_comp2.fypp b/src/lapack/stdlib_lapack_solve_ldl_comp2.fypp index 719ad01d1..5aebaa7f5 100644 --- a/src/lapack/stdlib_lapack_solve_ldl_comp2.fypp +++ b/src/lapack/stdlib_lapack_solve_ldl_comp2.fypp @@ -26023,9 +26023,5 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl_comp2 #:endfor - - - - #:endfor end submodule stdlib_lapack_solve_ldl_comp2 diff --git a/src/lapack/stdlib_lapack_solve_ldl_comp3.fypp b/src/lapack/stdlib_lapack_solve_ldl_comp3.fypp index 4f2093a2a..de64cb5f4 100644 --- a/src/lapack/stdlib_lapack_solve_ldl_comp3.fypp +++ b/src/lapack/stdlib_lapack_solve_ldl_comp3.fypp @@ -5126,8 +5126,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl_comp3 - - pure module subroutine stdlib${ii}$_cheequb( uplo, n, a, lda, s, scond, amax, work, info ) !! CHEEQUB computes row and column scalings intended to equilibrate a !! Hermitian matrix A (with respect to the Euclidean norm) and reduce @@ -5678,16 +5676,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl_comp3 - - - - - - - - - - pure module subroutine stdlib${ii}$_chetrs2( uplo, n, nrhs, a, lda, ipiv, b, ldb,work, info ) !! CHETRS2 solves a system of linear equations A*X = B with a complex !! Hermitian matrix A using the factorization A = U*D*U**H or diff --git a/src/lapack/stdlib_lapack_solve_ldl_comp4.fypp b/src/lapack/stdlib_lapack_solve_ldl_comp4.fypp index 835e0019d..cd6a12e89 100644 --- a/src/lapack/stdlib_lapack_solve_ldl_comp4.fypp +++ b/src/lapack/stdlib_lapack_solve_ldl_comp4.fypp @@ -12080,10 +12080,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_ldl_comp4 - - - - pure module subroutine stdlib${ii}$_slaqsy( uplo, n, a, lda, s, scond, amax, equed ) !! SLAQSY equilibrates a symmetric matrix A using the scaling factors !! in the vector S. diff --git a/src/lapack/stdlib_lapack_solve_lu.fypp b/src/lapack/stdlib_lapack_solve_lu.fypp index e082a9287..938048e71 100644 --- a/src/lapack/stdlib_lapack_solve_lu.fypp +++ b/src/lapack/stdlib_lapack_solve_lu.fypp @@ -1533,8 +1533,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_lu - - pure module subroutine stdlib${ii}$_sgbsv( n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb, info ) !! SGBSV computes the solution to a real system of linear equations !! A * X = B, where A is a band matrix of order N with KL subdiagonals @@ -3212,8 +3210,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_lu - - pure module subroutine stdlib${ii}$_sgtsv( n, nrhs, dl, d, du, b, ldb, info ) !! SGTSV solves the equation !! A*X = B, diff --git a/src/lapack/stdlib_lapack_solve_lu_comp.fypp b/src/lapack/stdlib_lapack_solve_lu_comp.fypp index c3968686f..9e6e6edbc 100644 --- a/src/lapack/stdlib_lapack_solve_lu_comp.fypp +++ b/src/lapack/stdlib_lapack_solve_lu_comp.fypp @@ -4464,8 +4464,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_lu_comp - - pure module subroutine stdlib${ii}$_sgeequ( m, n, a, lda, r, c, rowcnd, colcnd, amax,info ) !! SGEEQU computes row and column scalings intended to equilibrate an !! M-by-N matrix A and reduce its condition number. R returns the row @@ -8901,8 +8899,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_lu_comp - - pure module subroutine stdlib${ii}$_sgbcon( norm, n, kl, ku, ab, ldab, ipiv, anorm, rcond,work, iwork, & !! SGBCON estimates the reciprocal of the condition number of a real !! general band matrix A, in either the 1-norm or the infinity-norm, @@ -13580,8 +13576,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_lu_comp - - pure module subroutine stdlib${ii}$_sgbequ( m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd,amax, info ) !! SGBEQU computes row and column scalings intended to equilibrate an !! M-by-N band matrix A and reduce its condition number. R returns the @@ -16439,8 +16433,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_lu_comp - - pure module subroutine stdlib${ii}$_sgtcon( norm, n, dl, d, du, du2, ipiv, anorm, rcond,work, iwork, info & !! SGTCON estimates the reciprocal of the condition number of a real !! tridiagonal matrix A using the LU factorization as computed by diff --git a/src/lapack/stdlib_lapack_solve_tri_comp.fypp b/src/lapack/stdlib_lapack_solve_tri_comp.fypp index 662f8ceba..0dc17973d 100644 --- a/src/lapack/stdlib_lapack_solve_tri_comp.fypp +++ b/src/lapack/stdlib_lapack_solve_tri_comp.fypp @@ -3794,8 +3794,6 @@ submodule(stdlib_lapack_solve) stdlib_lapack_solve_tri_comp - - pure module subroutine stdlib${ii}$_strtri( uplo, diag, n, a, lda, info ) !! STRTRI computes the inverse of a real upper or lower triangular !! matrix A. diff --git a/src/lapack/stdlib_lapack_svd_comp.fypp b/src/lapack/stdlib_lapack_svd_comp.fypp index d8fb9d788..0e83983ed 100644 --- a/src/lapack/stdlib_lapack_svd_comp.fypp +++ b/src/lapack/stdlib_lapack_svd_comp.fypp @@ -8823,8 +8823,6 @@ submodule(stdlib_lapack_eig_svd_lsq) stdlib_lapack_svd_comp - - pure module subroutine stdlib${ii}$_stgsja( jobu, jobv, jobq, m, p, n, k, l, a, lda, b,ldb, tola, tolb, & !! STGSJA computes the generalized singular value decomposition (GSVD) !! of two real upper triangular (or trapezoidal) matrices A and B.