17
17
# removed blas_thread_shutdown_
18
18
#
19
19
@blasobjsc = (
20
- caxpy,caxpby,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemmt, cgemv,cgerc,cgeru,
20
+ caxpy,caxpby,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru,
21
21
chbmv,chemm,chemv,cher2,cher2k,cher,cherk,scabs1,scamax,
22
22
chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap,scamin,scasum,scnrm2,
23
23
csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm,
24
- ctrsv,icamax,icamin,cimatcopy,comatcopy,cgeadd,scsum);
24
+ ctrsv,icamax,icamin,cimatcopy,comatcopy,cgeadd,scsum,cgemmt );
25
25
26
26
@blasobjsd = (
27
- damax,damin,dasum,daxpy,daxpby,dcabs1,dcopy,ddot,dgbmv,dgemm,dgemmt,
27
+ damax,damin,dasum,daxpy,daxpby,dcabs1,dcopy,ddot,dgbmv,dgemm,
28
28
dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv,
29
29
dscal,dsdot,dspmv,dspr2,dimatcopy,domatcopy,
30
30
dspr,dswap,dsymm,dsymv,dsyr2,dsyr2k,dsyr,dsyrk,dtbmv,dtbsv,
31
31
dtpmv,dtpsv,dtrmm,dtrmv,dtrsm,dtrsv,
32
- idamax,idamin,idmax,idmin,dgeadd,dsum);
32
+ idamax,idamin,idmax,idmin,dgeadd,dsum,dgemmt );
33
33
34
34
@blasobjss = (
35
35
isamax,isamin,ismax,ismin,
36
36
samax,samin,sasum,saxpy, saxpby,
37
- scopy,sdot,sdsdot,sgbmv,sgemm,sgemmt, sgemv,sger,
37
+ scopy,sdot,sdsdot,sgbmv,sgemm,sgemv,sger,
38
38
smax,smin,snrm2,simatcopy,somatcopy,
39
39
srot,srotg,srotm,srotmg,ssbmv,sscal,sspmv,sspr2,sspr,sswap,
40
40
ssymm,ssymv,ssyr2,ssyr2k,ssyr,ssyrk,stbmv,stbsv,stpmv,stpsv,
41
- strmm,strmv,strsm,strsv, sgeadd,ssum);
41
+ strmm,strmv,strsm,strsv, sgeadd,ssum,sgemmt );
42
42
43
43
@blasobjsz = (
44
44
izamax,izamin,,
45
45
zaxpy,zaxpby,zcopy,zdotc,zdotu,zdrot,
46
- zdscal,zgbmv,zgemm,zgemmt, zgemv,zgerc,zgeru,
46
+ zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru,
47
47
zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2,
48
48
zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv,
49
49
ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv,
50
- zomatcopy, zimatcopy,dzamax,dzamin,dzasum,dznrm2,
51
- zgeadd, dzsum);
50
+ zomatcopy,zimatcopy,dzamax,dzamin,dzasum,dznrm2,
51
+ zgeadd,dzsum,zgemmt );
52
52
53
53
@blasobjs = (lsame, xerbla);
54
54
@bfblasobjs = (sbgemm, sbgemv, sbdot, sbstobf16, sbdtobf16, sbf16tos, dbf16tod);
59
59
cblas_csscal, cblas_cswap, cblas_csymm, cblas_csyr2k, cblas_csyrk, cblas_ctbmv, cblas_cgeadd,
60
60
cblas_ctbsv, cblas_ctpmv, cblas_ctpsv, cblas_ctrmm, cblas_ctrmv, cblas_ctrsm, cblas_ctrsv,
61
61
cblas_scnrm2, cblas_scasum,
62
- cblas_icamax, cblas_icamin, cblas_icmin, cblas_icmax, cblas_scsum,cblas_cimatcopy,cblas_comatcopy
63
- );
62
+ cblas_icamax, cblas_icamin, cblas_icmin, cblas_icmax, cblas_scsum,cblas_cimatcopy,cblas_comatcopy,
63
+ cblas_cgemmt, cblas_caxpyc, cblas_crotg, cblas_csrot, cblas_scamax, cblas_scamin );
64
64
@cblasobjsd = (
65
65
cblas_dasum, cblas_daxpy, cblas_dcopy, cblas_ddot,
66
66
cblas_dgbmv, cblas_dgemm, cblas_dgemv, cblas_dger, cblas_dnrm2,
67
67
cblas_drot, cblas_drotg, cblas_drotm, cblas_drotmg, cblas_dsbmv, cblas_dscal, cblas_dsdot,
68
68
cblas_dspmv, cblas_dspr2, cblas_dspr, cblas_dswap, cblas_dsymm, cblas_dsymv, cblas_dsyr2,
69
69
cblas_dsyr2k, cblas_dsyr, cblas_dsyrk, cblas_dtbmv, cblas_dtbsv, cblas_dtpmv, cblas_dtpsv,
70
70
cblas_dtrmm, cblas_dtrmv, cblas_dtrsm, cblas_dtrsv, cblas_daxpby, cblas_dgeadd,
71
- cblas_idamax, cblas_idamin, cblas_idmin, cblas_idmax, cblas_dsum,cblas_dimatcopy,cblas_domatcopy
72
- );
71
+ cblas_idamax, cblas_idamin, cblas_idmin, cblas_idmax, cblas_dsum,cblas_dimatcopy,cblas_domatcopy,
72
+ cblas_dgemmt, cblas_damax, cblas_damin );
73
73
74
74
@cblasobjss = (
75
75
cblas_sasum, cblas_saxpy, cblas_saxpby,
79
79
cblas_sswap, cblas_ssymm, cblas_ssymv, cblas_ssyr2, cblas_ssyr2k, cblas_ssyr, cblas_ssyrk,
80
80
cblas_stbmv, cblas_stbsv, cblas_stpmv, cblas_stpsv, cblas_strmm, cblas_strmv, cblas_strsm,
81
81
cblas_strsv, cblas_sgeadd,
82
- cblas_isamax, cblas_isamin, cblas_ismin, cblas_ismax, cblas_ssum,cblas_simatcopy,cblas_somatcopy
83
- );
82
+ cblas_isamax, cblas_isamin, cblas_ismin, cblas_ismax, cblas_ssum,cblas_simatcopy,cblas_somatcopy,
83
+ cblas_sgemmt, cblas_samax, cblas_samin );
84
84
@cblasobjsz = (
85
85
cblas_dzasum, cblas_dznrm2, cblas_zaxpy, cblas_zcopy, cblas_zdotc, cblas_zdotu, cblas_zdscal,
86
86
cblas_zgbmv, cblas_zgemm, cblas_zgemv, cblas_zgerc, cblas_zgeru, cblas_zhbmv, cblas_zhemm,
89
89
cblas_ztbmv, cblas_ztbsv, cblas_ztpmv, cblas_ztpsv, cblas_ztrmm, cblas_ztrmv, cblas_ztrsm,
90
90
cblas_ztrsv, cblas_cdotc_sub, cblas_cdotu_sub, cblas_zdotc_sub, cblas_zdotu_sub,
91
91
cblas_zaxpby, cblas_zgeadd,
92
- cblas_izamax, cblas_izamin, cblas_izmin, cblas_izmax, cblas_dzsum,cblas_zimatcopy,cblas_zomatcopy
93
- );
92
+ cblas_izamax, cblas_izamin, cblas_izmin, cblas_izmax, cblas_dzsum,cblas_zimatcopy,cblas_zomatcopy,
93
+ cblas_zgemmt, cblas_dzamax, cblas_dzamin );
94
94
95
95
@cblasobjs = ( cblas_xerbla );
96
96
@@ -709,6 +709,7 @@ zpotri,
709
709
# functions added for lapack-3.7.0
710
710
@lapackobjs2s = (@lapackobjs2s ,
711
711
slarfy,
712
+ ssyconvf,
712
713
strevc3,
713
714
sgelqt,
714
715
sgelqt3,
@@ -813,7 +814,86 @@ zpotri,
813
814
@lapackobjs2z = (@lapackobjs2z ,
814
815
zgesvdq,
815
816
zungtsqr
816
- );
817
+ );
818
+ # functions added for lapack-3.10
819
+ @lapackobjs2c = (@lapackobjs2c ,
820
+ cgetsqrhrt,
821
+ cungtsqr_row
822
+ );
823
+ @lapackobjs2d = (@lapackobjs2d ,
824
+ dgetsqrhrt,
825
+ dorgtsqr_row
826
+ );
827
+ @lapackobjs2s = (@lapackobjs2s ,
828
+ sgetsqrhrt,
829
+ sorgtsqr_row
830
+ );
831
+ @lapackobjs2z = (@lapackobjs2z ,
832
+ zgetsqrhrt,
833
+ zungtsqr_row
834
+ );
835
+ # functions added for lapack-3.11
836
+ @lapackobjs2c = (@lapackobjs2c ,
837
+ cgedmd,
838
+ cgedmdq
839
+ );
840
+ @lapackobjs2d = (@lapackobjs2d ,
841
+ dgedmd,
842
+ dgedmdq
843
+ );
844
+ @lapackobjs2s = (@lapackobjs2s ,
845
+ sgedmd,
846
+ sgedmdq
847
+ );
848
+ @lapackobjs2z = (@lapackobjs2z ,
849
+ zgedmd,
850
+ zgedmdq
851
+ );
852
+ # functions added for lapack-3.12
853
+ @lapackobjs2c = (@lapackobjs2c ,
854
+ cgelqs,
855
+ cgelst,
856
+ cgeqp3rk,
857
+ cgeqrs,
858
+ claqp2rk,
859
+ claqp3rk,
860
+ clatrs3,
861
+ ctrsyl3,
862
+ crscl,
863
+ );
864
+ @lapackobjs2d = (@lapackobjs2d ,
865
+ dgelqs,
866
+ dgelst,
867
+ dgeqp3rk,
868
+ dgeqrs,
869
+ dlaqp2rk,
870
+ dlaqp3rk,
871
+ dlatrs3,
872
+ dtrsyl3,
873
+ dlarmm,
874
+ );
875
+ @lapackobjs2s = (@lapackobjs2s ,
876
+ sgelqs,
877
+ sgelst,
878
+ sgeqp3rk,
879
+ sgeqrs,
880
+ slaqp2rk,
881
+ slaqp3rk,
882
+ slatrs3,
883
+ strsyl3,
884
+ slarmm,
885
+ );
886
+ @lapackobjs2z = (@lapackobjs2z ,
887
+ zgelqs,
888
+ zgelst,
889
+ zgeqp3rk,
890
+ zgeqrs,
891
+ zlaqp2rk,
892
+ zlaqp3rk,
893
+ zlatrs3,
894
+ ztrsyl3,
895
+ zrscl,
896
+ );
817
897
818
898
@lapack_extendedprecision_objs = (
819
899
zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx,
@@ -841,7 +921,8 @@ zpotri,
841
921
dggsvp,
842
922
dlahrd,
843
923
dlatzm,
844
- dtzrqf);
924
+ dtzrqf,
925
+ );
845
926
846
927
@lapack_deprecated_objss = (
847
928
sgelsx,
@@ -989,6 +1070,10 @@ zpotri,
989
1070
LAPACKE_cgebrd_work,
990
1071
LAPACKE_cgecon,
991
1072
LAPACKE_cgecon_work,
1073
+ LAPACKE_cgedmd,
1074
+ LAPACKE_cgedmd_work,
1075
+ LAPACKE_cgedmdq,
1076
+ LAPACKE_cgedmdq_work,
992
1077
LAPACKE_cgeequ,
993
1078
LAPACKE_cgeequ_work,
994
1079
LAPACKE_cgeequb,
@@ -1571,6 +1656,20 @@ zpotri,
1571
1656
LAPACKE_csytrf_aa_2stage_work,
1572
1657
LAPACKE_csytrs_aa_2stage,
1573
1658
LAPACKE_csytrs_aa_2stage_work,
1659
+ LAPACKE_cgesvdq,
1660
+ LAPACKE_cgesvdq_work,
1661
+ LAPACKE_cgetsqrhrt,
1662
+ LAPACKE_cgetsqrhrt_work,
1663
+ LAPACKE_cungtsqr_row,
1664
+ LAPACKE_cungtsqr_row_work,
1665
+ LAPACKE_clangb,
1666
+ LAPACKE_clangb_work,
1667
+ LAPACKE_ctrsyl3,
1668
+ LAPACKE_ctrsyl3_work,
1669
+ LAPACKE_ctz_nancheck,
1670
+ LAPACKE_ctz_trans,
1671
+ LAPACKE_cunhr_col,
1672
+ LAPACKE_cunhr_col_work,
1574
1673
);
1575
1674
@lapackeobjsd = (
1576
1675
LAPACKE_dgb_nancheck,
@@ -1641,6 +1740,10 @@ zpotri,
1641
1740
LAPACKE_dgebrd_work,
1642
1741
LAPACKE_dgecon,
1643
1742
LAPACKE_dgecon_work,
1743
+ LAPACKE_dgedmd,
1744
+ LAPACKE_dgedmd_work,
1745
+ LAPACKE_dgedmdq,
1746
+ LAPACKE_dgedmdq_work,
1644
1747
LAPACKE_dgeequ,
1645
1748
LAPACKE_dgeequ_work,
1646
1749
LAPACKE_dgeequb,
@@ -2179,6 +2282,18 @@ zpotri,
2179
2282
LAPACKE_dgesvdq_work,
2180
2283
LAPACKE_slag2d,
2181
2284
LAPACKE_slag2d_work,
2285
+ LAPACKE_dgetsqrhrt,
2286
+ LAPACKE_dgetsqrhrt_work,
2287
+ LAPACKE_dorgtsqr_row,
2288
+ LAPACKE_dorgtsqr_row_work,
2289
+ LAPACKE_dlangb,
2290
+ LAPACKE_dlangb_work,
2291
+ LAPACKE_dorhr_col,
2292
+ LAPACKE_dorhr_col_work,
2293
+ LAPACKE_dtrsyl3,
2294
+ LAPACKE_dtrsyl3_work,
2295
+ LAPACKE_dtz_nancheck,
2296
+ LAPACKE_dtz_trans,
2182
2297
);
2183
2298
@lapackeobjss = (
2184
2299
LAPACKE_sgb_nancheck,
@@ -2249,6 +2364,10 @@ zpotri,
2249
2364
LAPACKE_sgebrd_work,
2250
2365
LAPACKE_sgecon,
2251
2366
LAPACKE_sgecon_work,
2367
+ LAPACKE_sgedmd,
2368
+ LAPACKE_sgedmd_work,
2369
+ LAPACKE_sgedmdq,
2370
+ LAPACKE_sgedmdq_work,
2252
2371
LAPACKE_sgeequ,
2253
2372
LAPACKE_sgeequ_work,
2254
2373
LAPACKE_sgeequb,
@@ -2779,6 +2898,18 @@ zpotri,
2779
2898
LAPACKE_ssytrs_aa_2stage_work,
2780
2899
LAPACKE_sgesvdq,
2781
2900
LAPACKE_sgesvdq_work,
2901
+ LAPACKE_sgetsqrhrt,
2902
+ LAPACKE_sgetsqrhrt_work,
2903
+ LAPACKE_sorgtsqr_row,
2904
+ LAPACKE_sorgtsqr_row_work,
2905
+ LAPACKE_slangb,
2906
+ LAPACKE_slangb_work,
2907
+ LAPACKE_sorhr_col,
2908
+ LAPACKE_sorhr_col_work,
2909
+ LAPACKE_strsyl3,
2910
+ LAPACKE_strsyl3_work,
2911
+ LAPACKE_stz_nancheck,
2912
+ LAPACKE_stz_trans,
2782
2913
);
2783
2914
@lapackeobjsz = (
2784
2915
LAPACKE_zgb_nancheck,
@@ -2853,6 +2984,10 @@ zpotri,
2853
2984
LAPACKE_zgebrd_work,
2854
2985
LAPACKE_zgecon,
2855
2986
LAPACKE_zgecon_work,
2987
+ LAPACKE_zgedmd,
2988
+ LAPACKE_zgedmd_work,
2989
+ LAPACKE_zgedmdq,
2990
+ LAPACKE_zgedmdq_work,
2856
2991
LAPACKE_zgeequ,
2857
2992
LAPACKE_zgeequ_work,
2858
2993
LAPACKE_zgeequb,
@@ -3317,6 +3452,19 @@ zpotri,
3317
3452
LAPACKE_zupmtr_work,
3318
3453
LAPACKE_zsyr,
3319
3454
LAPACKE_zsyr_work,
3455
+ LAPACKE_zgetsqrhrt,
3456
+ LAPACKE_zgetsqrhrt_work,
3457
+ LAPACKE_zungtsqr_row,
3458
+ LAPACKE_zungtsqr_row_work,
3459
+ LAPACKE_zlangb,
3460
+ LAPACKE_zlangb_work,
3461
+ LAPACKE_ztrsyl3,
3462
+ LAPACKE_ztrsyl3_work,
3463
+ LAPACKE_ztz_nancheck,
3464
+ LAPACKE_ztz_trans,
3465
+ LAPACKE_zunhr_col,
3466
+ LAPACKE_zunhr_col_work,
3467
+
3320
3468
# # @(SRCX_OBJ) from `lapack-3.4.1/lapacke/src/Makefile`
3321
3469
# # Not exported: requires LAPACKE_EXTENDED to be set and depends on the
3322
3470
# # corresponding LAPACK extended precision routines.
@@ -3544,6 +3692,7 @@ zpotri,
3544
3692
ssysv_aa_2stage, ssytrf_aa_2stage,
3545
3693
ssytrs_aa_2stage,
3546
3694
slaorhr_col_getrfnp, slaorhr_col_getrfnp2, sorhr_col,
3695
+ slarfb_gett,
3547
3696
);
3548
3697
@lapack_embeded_underscore_objs_c =(
3549
3698
chetf2_rook, chetrf_rook, chetri_rook,
@@ -3569,6 +3718,7 @@ zpotri,
3569
3718
csysv_aa_2stage, csytrf_aa_2stage,
3570
3719
csytrs_aa_2stage,
3571
3720
claunhr_col_getrfnp, claunhr_col_getrfnp2, cunhr_col,
3721
+ clarfb_gett,
3572
3722
);
3573
3723
@lapack_embeded_underscore_objs_d =(
3574
3724
dlasyf_rook,
@@ -3586,6 +3736,7 @@ zpotri,
3586
3736
dsysv_aa_2stage,
3587
3737
dsytrf_aa_2stage, dsytrs_aa_2stage,
3588
3738
dlaorhr_col_getrfnp, dlaorhr_col_getrfnp2, dorhr_col,
3739
+ dlarfb_gett,
3589
3740
);
3590
3741
@lapack_embeded_underscore_objs_z =(
3591
3742
zhetf2_rook, zhetrf_rook, zhetri_rook,
@@ -3609,7 +3760,8 @@ zpotri,
3609
3760
zhesv_aa_2stage, zhetrf_aa_2stage,
3610
3761
zhetrs_aa_2stage, zsysv_aa_2stage,
3611
3762
zsytrf_aa_2stage, zsytrs_aa_2stage,
3612
- zlaunhr_col_getrfnp, zlaunhr_col_getrfnp2, zunhr_col
3763
+ zlaunhr_col_getrfnp, zlaunhr_col_getrfnp2, zunhr_col,
3764
+ zlarfb_gett,
3613
3765
);
3614
3766
3615
3767
@@ -3930,6 +4082,18 @@ if ($ARGV[0] eq "linktest") {
3930
4082
@no_underscore_objs = (@no_underscore_objs , @misc_common_objs );
3931
4083
3932
4084
print " int main(void){\n " ;
4085
+ foreach $objs (@underscore_objs ) {
4086
+ print " extern void " , $symbolprefix , $objs , $bu , $symbolsuffix , " ();\n " if $objs ne " xerbla" ;
4087
+ }
4088
+
4089
+ foreach $objs (@need_2underscore_objs ) {
4090
+ print " extern void " , $symbolprefix , $objs , $bu , $bu , $symbolsuffix , " ();\n " ;
4091
+ }
4092
+
4093
+ foreach $objs (@no_underscore_objs ) {
4094
+ print " extern void " , $symbolprefix , $objs , $symbolsuffix , " ();\n " ;
4095
+ }
4096
+
3933
4097
foreach $objs (@underscore_objs ) {
3934
4098
print $symbolprefix , $objs , $bu , $symbolsuffix , " ();\n " if $objs ne " xerbla" ;
3935
4099
}
0 commit comments